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780 
lan PIED PIPER CHARACTER SET FROM 
f 
OCTOBER 19, 1982 
j 
EACH CHARACCTER BEGINS WITH A LABEL HXY! 
WHERE ¥Y IS THE HEX VALUE OF THE CHARACTER 
0000! HOO? 
9000' 10 10 10 10 DE 10H» 10H» 10H: 10H» 1FHy OOH: 0OH=00H 
0004' —1F 00 00 a6 
008' 90 60 00 99 DE OOH» OOH» 00H: 00H» OOH: 00HsG0Hs00H 
ONC’ 00-00 00 OF 
0010' HOLL! 
0010' 00 00 00 00 DE OOH» OOH: OOH: OCH: 1FHr 10Hr10H+10H 
0014' 1F 10 10 10 
D018' 19 90 00 00 DE 19H» 0H»00H» 00H» OOH» OOH 00H200H 
OO1C’ 00 00 60 OF 
020° HO?! 
0020' 10 10 10 10 DE 10H: 10H? 10H? 10H: OF OH» OOH» OOH 00H 
0024' FO 00 00 00 
0028' 00 00 00 00 DB OOH» OOH» OOH 1 00H00H? 00H» 00H? 00H 
O0ZC' 00 40 00 00 
0030:  HO3! 
0030' 00 60 60 00 OB OOH: OOHr OOH: OOH» OF OH: 10H: 10Hr 10H 
0034' FO. 10 10 10 | 
0038' 10 00 00 00 DB 19H 00H700H100Hy 00H» OOH OOH» 00H 
003C' 00 00 00 00 
0040! HO: 
0040' 10 10 10 10 DR 10H+ 10H» 10H 10Hs OF FHs OOH? 00H? 00H 
0044' FF 00 00 00 
0048' 00 00 00 00 DB OOH» OOH» 00H? 00H» 00H» 00H» 00Hr00H 
O04C' 00 00 00 00 
0050" HOS! 
0050' 00 00 00 00 DB OOH» OOHy OOH» 00H» OFFHy 10Hs 10H» 10H 
0054' FF 10 10 10 
0058' 10 00 00 00 DE 10H» 00H» 00H» 00H» 90H100H200Hs OOH 
O05C' 00 00 00 00 
0060! HO6! 
0060' 10 10 10 10 DB 10H? 10Hs 10Hy 10H» 1FHr 10Hs10Hs 10H 
0064' 1F 10 10 10 
0068' 10 00 00 00 DE 10H» 00H? 00H» 00H» OOH» OOHs 00H 00H 
006C' 00 00 00 00 
0070! HO7! 
0070' 10 10 10 10 DB 10H» 10Hr 10H» 10Hr OF OHs 10Hr 10H 10H 
0074" FO 10 10 10 
0078' 10 00 00 00 DE 10H» 00H» 00H» 00H» 00H»00Hs 00H» 00H 
007C' 00 00 00 00 
0080" HOB! : 
0080' £0 80 80 E8 DB QEOHs 080H»080Hs OESH»030H O2EHs029Hy 08H 
0084' 30 2E 28 08 
0088' OE 00 00 00 DE OEHy OOH» 90H 00H»00H? 00H» 00H» 00H 
— OO8C' 00 00 00 00 
: 0090' HO! 


0090' FF AB D7 AB DB OFFH»OABHs 0D7H» OABHs OD7Hr OABH: OD7H» OABH 


094" 
8098" 
O09C' 
Q0A0' 
OOA0' 
O0A4! 
O0A8' 
QOAC’ 
O0B9' 
OOF" 
OOB4' 
Q0B3' 
OORT 
$000" 
0000" 
0004! 
00C3" 
o0CCT’ 
1000" 
00D0' 
0004" 
0008" 
O0DC' 
Q0E9' 
OOEO' 
Q0E4' 
Q0EB" 
OOEC" 
Q0FO" 
OOF 0" 
OOF 4? 
O0F8" 
QOFC' 
0109" 
9100! 
0104" 
§108° 
010C° 
0110' 
0110' 
O114' 
0118" 
011° 
0120" 
0120' 
0124' 
0128" 
012C' 
0130! 
0130' 
0134! 
$138' 
013C' 
0140' 
0140' 
O144! 
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D7 AE D7 AB 
FF 00 00 90 
006 00 00 00 


16 10 10 10 
FF 19 19 19 
19 00 00 60 


00 00 00 06 


10 10 10 18 
10 19 19 19 
10 06 00 09 
009 00 00 00 


00 60 00 00 
FF 00 00 04 
00 00 90 96 
00 00 00 00 


60 70 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 06 


00 00 08 7C 
10 7C 20 00 
00 00 00 60 
00 00 00 00 


00 00 00 00 
10 28 19 00 
00 60 00 00 
00 60 00 G0 


AQ CO 80 AB 
38 2E 08 OC 
08 00 00 00 
00 00 00 00 


00 GO 10 00 
70 00 10 00 
00 00 00 90 
00 60 00 00 


00 40 18 04 
18 60 00 7C 
00 00 00 06 
00 00 00 00 


00 OC 30 46 
30 OC 00 7C 
00 00 00 00 
00 00 00 00 


00 38 20 20 
20 20 20 20 
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HOA; 


HOB: 


HOC; 


HOD: 


HOE: 


HOF 


H10; 


Hil: 


Hi3; 


Hi4; 
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1 


OFFH» 00H 00H s00H2 00H? 00H2 00H 00H 


LOH: 10H: 10H» 1OHs OF FHs LOH 10H» 10H 


LOH» 00H! 09H? O0Hs 00H» 00H» 00H» 00H 


LOH: 10He 10H» LOHy 1OHe 10H: 1OHy 10H 


10H» S0H2 00H» 00H» 00H» 90H2 00H? 00H 


QOH OOH? OOH? OOH? OF FH: OOH: 00H: OOH 


OOH? OOH» OOH» OCH» 00H? OOH» GOH: 00H 


OGHs 7CH» QOH» 00H? 00Hr 00H: 00H? 00H 


OOH OOH? 0OHs 00H» 00H: OOH2 00H» 90H 


OOH? OOH: 08H» 07CH: 10H? 07CH» 20H? 00H 


QOH 00H» 90HsO0Hs 00H» 00H» 00H? 00H 


OCH» OOH OOH? OOH: 10H» 28H: 10H» 00H 


OOH 2 00H 200H»00H»00H»00H»00H? 00H 


OADH sOCOHs OB0Hs OABH: 038Hs0ZEHs 08H» OCH 


08H 00H:00H» 00H» 00H: 00H» 00H? 00H 


OOH» 00H: 10H» 00H» 7CHe OOH 10H? 00H 


OOH» OOH» 00H» 00H» 00H? 00H» 00H? 00H 


OOH» 60H» 18H: 04H? 18H» 60H? OOH 7CH 


QOH» 90H: 00H: 00H? 00H? 00H! 00H? 00H 


OOH: OCHy 30H? 40H: 30He OCH? OOH: 7CH 


QOH? 00H? 00H 1 00H» 00H? 00H? 06H» 00H 


OOH: 3BHy 20H 20H» 20H» 20Hr 20H 20H 
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0148' 00 00 00 00 DB 00H 00H» 00H» OOH? OOHr OOH? OOH? 00H 
014C' 00 00 00 00 
6150! HiS: 
0150' 06 20 20 29 DE OOH» 20H» 20H» 20H» 20H» 20H» 20H 38H 
0124" = 20 20 20 38 
O158' 90 00 00 00 DB 00H» 00H: 00H» 00H» 00H» 00H200H2 00H 
O15C' = 60 00 G0 00 
0160" Hid: 
0160' 0 70 44 44 DE OOH» 7CH: 44H 44H: 44H: 44s 44H» 7CH 
0164" = 44 44 44 7 
0148" 00 00 00 9 DE OOH? OOH? 00H? 00H» OOH» 00H: 00Hr 00H 
O14C' 00 00 60 00 
0170" Hi?; 
0170' 00 10 10 16 DE OOH» 10H: 10H 10H: 10Hs 10H? 10H» 7CH 
O174' =-10 10 10 7E 
0178" 90 00 00 00 DE OOH: 00H? 00H: 00H1 00H» 90H» 00H» 00H 
O170' 00 60 00 00 
0180" Hid; 
0180' = =00 10 38 34 DB OOH: 10H: 38H: G4Hy 10H: 10H» 10H» 10H 
0184" = =10 10 10 10 
0188' =—00 00 00 00 DE GOH» OGH» GOH? 00H» 00H» 00H2OQ0H90H 
018C' 00 00 00 00 
0190" Hi9; 
0190' = =00 10 10 10 DE OOH: 10H: 19Hr 10H» 10H» 54H» 38Hr 10H 
0194" =: 10 54 38 10 | 
0178" 00 00 00 00 DE OOH? QOH» 00H? 00H190H2 00H? 00H2 00H 
O19C' = §=—00 00 00 00 
Q1A0' HiA: 
O1A0' 00 00 08 04 DE OOH? OOH: O8Hr 04H» 7EHy 04H: 08H? OOH 
O1A4' = 7E 04:08 00 
O1A8' 00 00 00 00 DE OOH: 00H: 00H? 00H» 00H» 00H» 00H2 00H 
O1AC' 00 00 00 00 
O1B0" HIE: 
O1BO' = =—00 00 10 29 DB OOH» OOHs 10H» 20H» 7EH» 20Hr 10H» 00H 
OLR4’ = 7E 20 10 00 
O18’ 00 00 00 00 DE OOH 00H» GOH» 00H» 00H: 00H» 00H» 00H 
O1BC' 00 90 00 60 
0100' HiC} 
O100' 60 20 10 10 DE OOH» Z0Hy 10H: 10H 10H» 10H: 10H r 08H 
O1C4" = =19 10 10 08 
O108' 90 00 00 00 DE OOH? 00H» 00H: 00H 00H2 00H: 00H 00H 
01CC' 00 00 00 00 
01D0' Hid: 
01D0' 00 00 00 78 DE OOH: OOH? OOH 78H 04H» 04H 04H 78H 
O1D4' 04 04 04 78 
0108" 00 00 00 00 DE OOH» 00H» 00H» 00Hy 00H» 00H» 00H 00H 
O1DC' 00 00 00 00 | 
Q1E0' HIE; 
O1E0' 00 00 10 10 DE OOH: 00H: 10H» 10H» 28H» 28H» 44H 7CH 
O1E4' = 28 28 447 
O1E8' 00 00 00 00 DE OOH» GOH? 90H: 00H? 00H200H700Hs00H 
O1EC’ 00 00 00 00 
O1FO' HIF; 

aie O1FO' 00 00 70 44 DE OOH: OOH» 7CHr 44H» 2BHy 2BHy 10Hs 10H 


O1F4' 28 28 10 10 
O1F8' 04 00 00 00 DE QOH: 00H? 00H: 00Hs 00H» 00H» 90H: 00H 


O1FC' 
6200' 
0200' 
0204' 
0208" 
020C' 
0210' 
0210' 
0214! 
0218" 
021C' 
0220' 
0220' 
0224" 
0228" 
0220" 
0230! 
0230" 
0234! 
0238" 
023C' 
0240" 
0240' 
9244! 
0248" 
0240" 
)250' 
0250' 
0254" 
0258! 
025C' 
0260' 
0260' 
0264' 
0268" 
026C' 
0270" 
0270' 
0274! 
0278" 
0270" 
0280" 
0280' 
0284' 
0288" 
028C’ 
0290" 
0290" 
0294! 
0298" 
029C' 
O2A0' 
0240" 
O2A4' 
0248" 
O2AC" 
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00 00 00 00 


00 00 00 00 
00 00 00 00 
00 60 00 00 
00 60 00 00 


00 10 10 10 
10 10 00 10 
40 00 00 00 
00 00 00 00 


00 28 28 7C 
28 70 28 28 
60 06 00 90 
00 90 00 00 


00 00 00 00 
00 00 06 00 


00 60 64 08 
10 20 4C OC 
00 60 00 00 
00 00 00 00 


00 10 28 28 
30 34 48 34 
60 00 00 00 
00 00 00 00 


00 10 10 20 
00 00 00 09 
00 00 00 00 
00 00 00 00 


00 08 10 20 
20 20 10 08 
00 00 00 00 
00 00 00 00 


00 20 10 08 
08 0B 10 20 
00 00 00 00 
00 00 00 00 


00 00 10 34 
38 34 10 00 
09 00 00 00 
60 00 00 06 


09-Bec-81 


H24} 


H2é; 


He? 


H283 
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OOH» 00H» 00H» 00H» 00H» 00H» 00H 00H 


OOH» 00H? OOH» OOH» 00H» 00H2 00H? 00H 


OOH: 10H: 10H: 10H: 10H» 10Hr QOHs 10H 


OOH? OOH» 00H» OOH» 00H» 00H? 00H 00H 


OOH: 28H» 28H» 28H OOH? OOH? OOH OOH 


OOH? OOH» 00H: OOH OOH? 00H? 00H? 00H 


OOH: 78H» 28H: 7CHy 28H» 7CHs 28H» 28H 


QOH: 00H: GOH» 00H» 90H? 00H» 00H00H | 


OOH? 10H: 3CHr 50H» SBH? 14Hs78Hr 10H 


OOH? 09H» 00H? 00Hs O0Hs 00H? 00H? 00H 


OOH: 60H 64He OSH» 10H: 20H: 40H OCH 


OOH» 00H» 00H» 00H» 00H? 00H» 00H 00H 


OOH: 10H» 2BHe 28H: 3OHs 54H: 48He 34H 


OOH: 00H: 00H» OOH: OOH: 00H 00H? 00H 


OOH: 10Hr 10H? 20H 00H: OOH? OOH? 00H 


OOH? 00H» OOHy 00H» 00H» 00H» 00H1 00H 


OOH» OBHy 10H» 20H» 20H» 20H» LOH 08H 


OOH» 00H: 00H: 00H: 00H» 00H» 00H: 00H 


OOH: 20H: 10H» O8Hr OBHs OBHs 10H? 20H 


OOH» 00H? 00H» 00H2 00H» 00H» 00H2 00H 


OOH? OOH: 10H» S4Hy SBHs 54H 10H? 00H 


QOH» 00H» 00H 90H: 00H» 00H 00Hs00H 


0260" 
0280" 
0284" 
0288" 
Q2EC' 
0200" 
0200' 
0204! 
0208" 
O2CC' 
0200" 
02D0' 
0204" 
0208" 
O2DC' 
Q2E0' 
O2E0' 
02E4' 
O2E8' 
O2EC’ 
O2FQ' 
O2FO' 
Q2F 4! 
O2F8' 
O2FC' 
9300' 
0300" 
0304! 
0308' 
0300" 
0310" 
0310' 
0314! 
0318" 
Q31C° 
0320" 
0320' 
0324' 
0328" 
032C' 
0330' 
0330" 
0334" 
0338" 
033C' 
0340" 
0340" 
0344! 
0348" 
034C' 
0350" 
0350" 
0354! 
0358" 
035C' 
0340' 
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00 60 19 10 
7C 10 10 00 
00 00 00 00 
60 00 00 00 


00 00 00 00 
00 00 19 10 
20 00 00 00 
00 00 90 00 


60 00 00 00 
7C 00 00 00 
00 00 00 00 
00 00 60 00 


00 00 04 08 
19 20 49 00 
)} 00 00 00 
00 00 00 00 


00 38 44 4 
34 64 44 38 
00 60 00 00 
00 00 00 00 


00 10 30 16 
10 10 10 38 
00 00 00 00 
00 00 00 00 


00 38 44 04 
18 20 40 7C 
00 00 00 00 
00 00 00 00 


00 7C 04 08 
18 04 44 38 
00 00 00 00 
60 00 00 00 


00 08 18 28 
48 70 08 08 
60 00 00 90 
00 00 00 60 


00 70 40 78 
04 04 44 38 
09 00 00 00 
00 00 00 00 
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HZB; 


H2E} 


H30; 


H313 


H333 


H34; 


H333 


H36; 


PAGE 


DB 


DE 


DE 


DE 


DE 


OB 


DE 


DE 


DB 


DE 


DE 


DE 


DE 


DE 


DB 


DE 


DB 


DE 


«OE 


DB 


DE 


DB 


OOH» 00H» 10H; 10H» 7CHs 10H» 10H 00H 


QOH: 00H200H 1 00H» 00H» 00H» 00H? 00H 


OOH: OOH? OOH? 00H» 00H: OOH? 10Hy 10H 


20H200H2 00H OOH OOH: OOH» 00H? 00H 


OOH: OOH? 00H 1 00H: 70H: OOH» 0OHY OOH 


OOH: OOH: OOH» 00H: OOH» 00H 00H? O0H 


OOH» 00H? 00HrQ0H» OOHy O0Hr OOHr 10H 


OOH? 90H1 00H? 00H» 00H» 00H? 00H 00H 


OOH: OOH: 04H? OBHs 10Hy 70H» 40H? 00H 


OOH: 00H 00H: 00H: 00H? 00H 00H: 00H 


OOH» 38H» 44Hs 40H: 54H 64H 44H 38H 


OOH? 00H» 00H? 00H» OOH: OOH? 00H» 00H 


OOH: 10H» 30H: 10H: 10H» 10H: 10Hy 38H 


OOH? OOH» 90H? 00H» 00H? 00H? 00H» 00H 


OOH: 3B: 44H» 04H: TBH: 20H: 40H 7CH 


QOH: 00H? 00H: 00H2 00H: 00H? 00Hs 00H 


OOH: 7CHe O4Hs O8Hy 18Hy 04H: 44H SBH 


00H 00H 00H 00H: OOH 00H 00H) OOH 


OOH: 08H: 18H: 28H» ABH» 7CHs OBHy 08H 


O0Hs 00H» 00H? 00H» 00H» 00H100HY 00H 


OOH: 70H: 40Hs 78H» 04H: 04s 44H) 38H 


OOH? 00H 00H» 00H» 00H» 00H? 00H1 00H 


0340" 
0364! 
0368" 
036C' 
0370' 
0370" 
0374" 
0378" 
037C' 
0380" 
0380" 
0384! 
0388" 
038C ' 
0390" 
0390" 
0394" 
0398" 
0370" 
03A0' 
O3A0' 
Q3A4 
0388" 
O3AC' 
0380" 
O3EG" 
0384 ' 
0368" 
O3BC' 
0300" 
0300" 
034° 
0308" 
03cC’ 
03D0' 
0300' 
0304" 
0308" 
03D" 
Q3E0' 
03E0" 
Q3E4' 
03E8' 
Q3EC' 
Q3F0' 
03F0' 
O3F 4" 
Q3F8" 
O3FC’ 
0400" 
0400" 
0404" 
0408" 
040" 
0416! 
0410" 
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0 18 20 40 
78 44 44 38 
00 00 90 00 
00 00 00 00 


a 


Vv 


00 38 44 44 
3C 04 98 30 
00 00 00 00 
00 00 00 00 


00 00 00 06 
10 00 10 06 
00 00 00 00 
00 00 60 00 


00 00 00 00 
19 00 10 10 
20 00 00 90 
00 00 00 00 


60 00 00 00 


00 00 00 7C 
00 70 00 00 
00 00 00 00 
00 00 00 00 


00 38 44 04 
08 10 00 10 
00 60 09 00 
00 00 00 00 


00 00 00 00 
00 00 00 00 


00 10 28 44 
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H373 


H38; 


H395 


H3A; 


HBB 


H3c; 


H3D; 


H3Es 


HF + 


H40; 


H41; 


PAGE 
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OOHy 18H: 20Hs40Hs 78H» 44H 44Hs 38H 


OOH? 09H? 00H? 90Hs 00H» 00H» 00H? 00H 


OOH: 70H O4H: OBHs 10H 20H 20H» 20H 


QOH» 90HsG0Hs 00H» 00H? 00Hy 00H! 00H 


OOH» 38H: 44H: 44Hs SBHs 44H: 44H 2 SBH 


OOHs 00H? 00H» 00H: 00H» 00H» 00H? 00H 


OOH: 38H» 44H» 44H: SCH: 04H» OBH 30H 


OOH 00H? 00HyO0H» 00H: 00H: 00H200H 


OOHr OOH? 0OHs 00H: 10Hr 00H? 10H» 00H 


OOH» OOH? 00Hs 00H» 00H? 00H? 00H» 00H 


OOH? OOH: OOH: OOH: 10H» OOH: L0H 10H 


29H 00H» 00H» 00Hs O0H2 00H» 00H» 00H 


OOH? O8Hs 10H: 20Hr 40H» 20H: LOH 08H 


OOH: 00H: 00H? 00H: GOH: 00H2 00H? 00H 


QOH» OOH: OOHs 70H» OOH 7CHe OOH? 00H 


OOH» 00Hs 00H» 00H» 90H 00H? 00H 00H 


OOH» 20H» 10H O8Hr 04H OBH» 10H 20H 


OOH» 00H100H2 00H1 00H? 00H» 00Hs 90H 


OOH» 38Hy 44H2 04H sr OBHs 10Hy OOH 10H 


OOHs 00H? OOH? G0Hs 00H: 00H? G0H2 00H 


OOH? SBH 44H SCHs 34H BH: 44H 38H 


QOH» 00H: 00H» OOH» OOH» OOH» OOH 00H 


QOH: 10H: 28H: 44H 44H 7 CH: 44H 44H 


0414! 
0418" 
0410" 
0429" 
0420' 
0424! 
0428" 
042C' 
0430" 
0430" 
0434! 
0438" 
0430" 
0440" 
0440' 
0444! 
0448" 
0440" 
0450" 
0450" 
0494! 
0458' 
045C' 
0440' 
0460' 
464° 
0468" 
0460" 
0479" 
0470" 
0474! 
0478" 
047C' 
0480" 
0480" 
0484! 
0488" 
048C' 
0490" 
0490" 
0494" 
0493" 
049C' 
0440' 
04A0' 
0404! 
O4A8' 
O4AC' 
0480" 
0460" 
0464! 
O468' 
O4BC' 
04C0' 
0400" 
0404! 
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44 70 44 44 
00 00 00 00 
60 00 00 00 


00 78 44 44 
78 44 44:78 
00 00 00 00 
00 00 00 00 


00 38 44 40 
40 40 44 38 
00 00 00 04 
00 00 00 06 


00 70 40 40 
78 40 40 7C 
60 00 00 40 
00 00 00 00 


00 70 40 40 
7B 40 40 40 
00 00 00 00 
60 00 00 00 


00 38 44 40 
40 40 44 3C 
00 00 00 00 
00 00 00 00 


00 44-44 44 
7C 44 44 44 
00 00 00 00 
00 00 00 00 


00 38 10 10 
10 10 10 38 
00 00 00 00 
00 00 00 00 


00 04 04 04 
04 04 44 38 
00 00 00 00 
00 60 00 00 


00 44 48 50 
60 50 48 44 
00 00 00 00 
00 00 00 00 


00 40 40 40 
40 40 40 7C 
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H433 


H44; 


H45) 


HAG 


H48% 


H493 


H4A; 


H4B; 


PAGE 


DB 


DB 


DB 


DE 


DB 


DB 


DE 


DE 


DB 


DE 


DE 


DB 


DB 


DB 


OB 


DE 


DE 


DB 


OF 


DE 


DB 


DE 


1-6 


OOH» OOH» OOH» OOHy OOH» 00H» 00H? 00H 


OOH: 78H: 44H» 44H> 78H: 44H 44H: 78H 


OOH» 00H 00H» 00H» 90H 00H» 00H 00H 


OOHs 38H» 44H 40H 40H» 40H: 44H BH 


OOH? OOH? 00H200H1 00H» 00H? 00H: 00H 


OOH: 78H: 24Hy24Hs 24H» 24H 24H 78H 


QOH» 00H: 00H» 00H? 00Hs 00H» 00H? 00H 


OOH» 70H» 40He 40H: 78H: 40He 40H? 7 CH 


OOH: 00H: 00H? 00H? 00Hs00H: 00H» 00H 


OOH: 7CHe 40H 40H: 78H 40H 2 40H 40H 


OOH? 00H: 00H? 00H» 00H: 00H» 00H2 00H 


OOH: 3BH» 44H 40H: 40H: 4CHs 44H SCH 


OOH: 00H? 00H» 00H» 00H 00H? 00H» 00H 


OOH» 44H: 44H 44H» 7CHe 44H» 44H 44H 


OOH» 00H? 00H» 00H» OOH: GOH» 00H» 00H 


OOH: 38H: 10H» 10Hr LOH: 10H: 10H» SBH 


OOH? OOH» 00H? 00H? 00H» OOH» 00H? 00H 


OOH? 04H» 04H» 04H» 04H» 04H: 44Hs 38H 


OOH 00H:00H» 00H» 00H» 00H» 00H? 00H 


OOH» 44H 2 48Hs 50H 60H» OH: 4BHe 44H 


QOH: 00H» 00H 00H» 00H» 00H» 00H? 00H 


OOH? 40H» 40H 40H» 40H2 40H» 40H 7CH 


04C8' 
04CC’ 
0400" 
0400' 
0404" 
0408" 
0400" 
04E0' 
04E0' 
0454! 
0468! 
O4EC' 
04F 0’ 
O4F0' 
04F 4" 
04F8' 
O4FC' 
0500’ 
0500" 
0504! 
9508" 
0300" 
0510! 
0510" 
0514! 
0518! 
O51C' 
0520! 
0520" 
0524! 
0528' 
0520" 
0530' 
0530" 
0534! 
0538! 
053C' 
0540' 
0540" 
0544! 
0548" 
034C' 
0550" 
0550' 
0554" 
0558" 
055C' 
0560' 
0560' 
0564" 
0568" 
056C' 
0370" 
0570" 
0574" 
0578' 


MACRO-80 3.44 


00 00 00 00 
00 00 00 00 


00 44 4€ 34 
44 44 44 44 
00 00 00 00 
00 00 00 00 


00 44 44 64 
34 4€ 44 44 
60 00 00 00 
60° 00 00 00 


00 38 44 44 
44 44 44 38 
G0 00 00 00 
00 00 60 00 


00 78 44 44 
78 40 40 40 
00 00 00 99 
00 00 00 00 


00 38 44 44 
44 34 48 34 
00 00 00 00 
00 00 00 00 


00 78 44 44 
78 50 48 44 
00 00 00 00 
00 00 00 00 


00 38 44 40 
38 04 44 38 
00 00 00 00 
00 00 00 00 


00 7C 10 10 
10 10 10 10 
00 00 00 00 
60 00 00 00 


00 44 44 44 
44 44 44 38 
00 00 00 00 
00 00 00 00 


00 44 44 44 
28 28 10 10 
00 00 00 00 
00 00 00 00 


— 


aS ON cs 
Sa 

=o OF Wf 
<> ab fs 
Con 2) ee 
ca -fo fs 
m ro -h 
m 0 fh 
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H4D; 


H4E3 


H4F 


Hol; 


H53} 


H363 


PAGE 


DE 


DE 


DE 


DB 


DE 


DB 


DE 


DE 


DB 


DB 


DE 


DB 


DB 


DE 


DE 


DE 


DE 


DE 


DB 


DE 


DE 


DE 


DE 


rd 


OOH? OOH: OOH: OOH? OOH? OOHy OOH: 00H 


OOH? 44H» 6CHs 4H» 44H» 44H 44H 44H 


OOH? 00Hy 90H» 00H» 00H» 00H? 50H: 00H 


OOH» 44H 44H: 64H 4s ACH 44H? 44H 


QOH» OOH: 00H» 00H: 00H: 00H» 00H: OOH 


OOH: 38H» 44H: 44H 44H: 44H: 44H: 38H 


QOH: 00H? 00H200H» 00H» 00H: 00H! 00H 


OOH: 78H» 44H 442 78H: 40H 40Hy 40H 


OOHs 00H» 00Hs 00H» 90H» 00H» 00H! 00H 


OOH: 38H 44Hy 44s 44Hs 54H 48H: 34H 


OOH? 00H» 00Hy 00H? 00H» 00H? 00H? 00H 


OOH: 78H: 44H» 442 78H» GOH: 48H 44H 


OOH: 00H» 00H: OOH» 00H» 00H? 00H» 00H 


OOH? 38H: 44Hs 40H» 38H: O4Hs 44H2 SBH 


QOH» 00H? OOH OOH» OOH» 00H» 00H2 00H 


OOH? 7CHs 10H? 10Hy 10H? 10Hr 10Hy 10H 


00H» 00H 00H» 00H» 00H» 00H: 00H 00H 


OOHs 44H 44H 2 44H 44s 44H» 44H 38H 


OOH» 00H: 00H? 00H» 00H» 00H» 00H? 00H 


OOH: 44H» 44H: 44H 28H» 28Hs 10H? 10H 


GOH» 00H» 00H» 00H» 00H: O0Hs 00H? 00H 


OOH: 44s 44H: 44H 54H 4H oF 28H 


OOH: OOH» 00H 00H» 00H» 00H» 00H) 90H 
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057C° 00 00 00 00 


0580' HOB; 
0580' 90 44 44 28 DE OOH 44H: 44H» 28H» LOH» 28H 44H 2 44H 
0584" = =—10 28 44 44 
0388" 00 00 00 00 DB QOH: 00H» 00H» OOH» 00H: 00H» 00H 00H 
058C' 00 00 00 00 
0390 ' H393 
0590' 00 44 44 28 DE OOHy 44H: 44Hs 28H: 10Hs 10H? 10H: 10H 
0574' 10 10 10 10 
0598' = 00 00 09 DB OOH» OOH? 00H» 00H» 00H: OOH? OOH? 00H 
O70" 00 00 00 00 | 
Q5A0' | HOA: 
OSA0' 00 7C 04 08 DE OOH» 7CHr 04H: OBHs 10H» 20H? 40H» 7CH 
Q5AF' =: 10 20 40 7C 
Q5A8' =. 00 00 00 90 DB OOH? 00H» 00H» 00H» 00H? 00H? 00H 00H 
QSAC' = 00 00 00 00 
0580 ' HSB; 
OSBG' = §=00 38 20 20 DE OOH: 38H 20H: 20H» 20H» 20Hs 20H» 38H 
OSE4' = 20 20 20 38 : 
O568' 00 00 00 00 DE OOH? OOH 00H» 00H» 00H: OOH? OOH» 00H 
ODBC’ 00 00 00 00 
05C0' HOC: 
05C0' 00 00 40 20 DE OOH? OOH» 40H Z0Hs 10H» OBH? 04H» 00H 
Q5C4' 19 08 04 00 
05C8' 00 00 00 90 | DE OOH? OOH? 00H: 00H» 00H» 00H» 00Hs 00H 
OSCC’ 00 00 00 00 
05D0' H5D: 
pie, «© OSD0' = 00 38 08 08 DE OOH: 38H: OBHr OBHy OBHs OBH? O8Hs 3BH 
— Q504' 08 08 08 38 
O5D8' 00 00 00 00 DE OOH: 00H: 00H: OOH» O0Hs OOH? OOH? 00H 
O50C' 00 00 60 00 
Q5E0' HOE; 
QSE0' 00 10 28 44 DB OOH? 10H» 2BH» 44H» O0Hs OOH: OOH OOH 
Q5E4' 00 00 00 00 
Q5E8' 90 00 00 00 DE OOH? 00H» 00H» 00H» 00H» 00H? 00H! 00H 
OSEC' 00 00 00 00 
QSFO' HOF} 
OSFO' 00 00 00 00 DE OOH OOH? OOH OOH» OOH OOH? OOH 7CH 
OSF4' 00 00 00 7C 
OSF8' 00 00 00 00 DE OOH» OOH? 00H» 00H» 00H: 00H: 00H? 00H 
OSFC' 00 00 00 00 
0600' H40} 
04600' 00 OC 14 38 DE OOH» OCH: 14H» 38H: 10H: 10H» 64H 58H 
0604' 10 10 64 59 
0608' 00 00 00 00 DE OOH» 00H» 00H» 00H» 00H» 00H» 00H» 00H 
060C' 00 00 00 0¢ 
0410' Hdl: 
0610' 00 00 00 34 DE OOH OOH O0Hs 34Hr4CHs 44H 4CHs 34H 
0614' 4C 44 4C 34 
0618' 00 00 00 00 DB OOH s 00H» 00H? 00Hy00Hs 00H» 00H? 00H 
O61C' 00 00 00 00 | 
0620' Hé23 
0620' 60 40 40 58 DE OOH: 40H» 40H: SBHs 64H: 44H 64H 8H 
0624' 44 44 64 38 
0628' 00 00 00 00 DEB OOH» 00H: 00H» 00H? 00H» 00H 00H) 00H 


042C' 00 00 00 00 
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0630° Hé3: 
0430' 00 00 00 3C DE OOH» 00Hs 00H» SCH 40H» 40Hs 40H» 3CH 
0634° 40 40 40 3C 
0438’ 40 00 00 00 DE QOH» 00H: 00H» 00H? 00H 00H 00Hs 00H 
0630’ 00 00 00 00 
9640! Hd4; 
0440' = 00 04 04 34 DE OOH? 04H? O4Hs 34H» ACH? 44H ACH 34H 
0644" AC 44 4C 34 
0648’ 90 00 00 00 DE 90H» 00H 2 00H» 00H» 00H» 00H? 00H2 90H 
064C' 00 00 00 00 
650" Has; | 
0450' 00 00 00 38 DE OOH» OOH» OOH» 3BHs 44H» 70H» 40H? SCH 
N654' 44 70 40 3C 
04658' 99 00 00 00 DE OOH? 00H: 00H» OOH» 00H? 00H1 00H 00H 
O45C' 00 00 00 00 
9440! Hdd; 
0660' 00 00 10 10 DE OOH? OCH» 10H» 10H» 38Hs 10H: 10H 10H 
0464" 38 10 10 10 
0468' 99 00 00 00 - DB OOH» 00H» OOH» OOHs 00H» QOH? 00H? 00H 
066C' 00 00 06 00 
0670! Hé7; 
0470' 00 00 60 34 DE OOH» OOH» OOH 34He 40H 44H» SCHs 04H 
0674' 4 44 3C 04 
04678’ 38 00 00 09 OB SBHr OOHs 00H OOH: OOH 00H 00Hs 00H 
0670' 00 09 00 00 | 
0680' H4B? 
0680' 60 40 40 78 DE OOH: 40H: 40H» 78H: 44H: 44H: 44H» 44H 
— © ObB4" 44 44 44 44 

O688° 00 09 00 00 DE 90H? OOH» 00H» 00H100Hs 00H» 00H 00H 
O68C' 60 00 00 00 
0690" Hd9; 
0690' 00 60 10 00 DE OOH» OOH? 10H» OOH: 30H» 10H: 10H + 38H 
0694’ 30 10 10 38 
0678' 00 00 00 00 DE 00H 00H» 00H? 00H? 00H» 00H? 00H 00H 
069C' 00 00 00 00 
O46A0' HdA; 
O6A0' 00 00 08 00 DE OOH? 00H? 08H: OOH: OBHs OBHr OBHs OSH 
N6A4' 08 08 08 08 
O6AB' 30 00 00 00 DE 30H? 00H? 00H 00H? OOH» 00H? 00H? 00H 
O46AC' 00 00 00 00 
0480" HOB; 
O6B0' 00 40 40 48 DE OOH 40H» 40H» 4BHs DOH: 70H: 48H» 44H 
O6B4' 30 70 48 44 
O6E8' 00 90 00 00 DE OOH» 00H? 00H» 00H» 00H: 00H2 00H? 00H 
O6BC' 00 00 00 00 
04C0' H4C; 
O6C0' 60 30 10 10 DE OOH: 30H: 1OHy 10H» 10H: 10H: 10H: 38H 
O06C4° 10 10 10 38 
O6C8' 90 00 00 00 DE OOH100Hs 00H» 00H» 00H» 00H200H2 90H 
06CC' 00 00 60 06 
0600" Hd; 
06D0' 00 00 00 68. DE OOH? OOH? OOH: 68Hy 54H: S4H» G4Hs O4H 
O604' 54 54 34 54 

pres, 0408" 00 00 00 00 BE OOH» 90H» OOH: 00H» 00H» 00H» QOH» OOH 
04600’ 00 00 00 00 


Q6E0' HdE; 


Q4E0' 
Q6E4' 
O6E8" 
O6EC' 
OdFO' 
O4F0' 
O6F4' 
O4F3' 
O6FC' 
9700! 
0700" 
0704" 
0798" 
070C' 
0710' 
9710' 
0714! 
0718! 
071C° 


0720' 


0720' 
0724" 
0728" 
072C' 
0730' 
0730" 
0734! 
0738" 
073" 
0740! 
0740" 
0744! 
0748" 
074C' 
0750' 
0750" 
0754" 
0758" 
0750" 
0760" 
0760" 
0764! 
0748" 
076C' 
0770" 
0770' 
0774! 
0778! 
077" 
0780' 
0780" 
0784! 
0788" 
078C' 
0790! 
0790' 
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00 00 00 78 
44 44 44 44 
00 00 00 00 
00 00 00 00 


60 00 00 38 
44 44 44 38 
D9 00 00 00 
00 00 00 00 


00 00 00 58 
44 44 78 40 
40 00 00 00 
00 00 00 00 


00 00 00 34 
4€ 44 30 04 
04 00 00 00 
09 00 00 06 


60 00 00 SC 
40 40 40 40 
00 00 00 00 
60 00 00 00 


00 00 00 3C 
40 38 04 78 
50 00 00 00 
00 00 00 00 


00 10 10 38 
10 19 10 08 
00 90 00 00 
00 00 00 00 


00 00 00 44 
44 44 44 AC 
00 00 00 00 
00 00 00 00 


00 00 00 44 
44 34 34 28 
00 00 00 00 
60 00 00 00 


00 00 00 44 
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HaF $ 


H70; 


H713 


H74; 


H735 


H77 3 


H78+ 


H793 


PAGE 


DE 


DE 


DE 


DE 


DE 


DE 


DE 


DE 


DE 


DB 


DE 


DE 


DE 


DE 


DE 


DB 


DE 


DE 


DE 


DB 


DE 


DE 


DE 


110 


OOH? 00H O00Hs 78H» 44H» 44H 44H 44H 


OOH» 00H» 00H» 00H: 00H? 00H» 00H 00H 


OOH» OOH» OOH: 38Hr 44H» 44H» 44Hr 38H 


OOH» 00H» 00H290H» 00H: 09H: 00H 00H 


OOH? OOH? O0Hr 58H: 64H» 44H+78Hs 40H 


40H» 00H 00H: 00H2 00H? 00H? 00Hs 00H 


OOH? OOH? OOH» S4Hr 40H: 44H: 3CHs 04H 


04H100H2 90H 00H? 00H? 00Hs 00H» 00H 


OOH: OOHr OOH» SCH: 60H? 40Hs 40H: 40H 


OOH: OOH» O0Hs 00H: 00H 00H: 00H2 00H 


OOH: OOH: OOH: SCH: 40H: 38H? 04H: 78H 


00H» 00H: 00H: 00Hs 00H? 00H2 00H! 00H 


OOH: 10H: 10H» 38H: 10Hs 10Hs 10H» 08H 


OOH: OOH? 00H? 00H: OOH» OOH? 00H2 00H 


OOH: OOH: OOH 442 44H» 44H» 44H SCH 


OOH» O0H2 00H» 00H» 00H» 00H2 00H? 00H 


OOH» OOH: OOH: 44H 44H: 28H: 2BHe 10H 


QOH» 00H» 00H» 00H» 00H» 00H? 00H? 00H 


OOH OOH» OOH» 44s 44Hs 54H S4He 28H 


OOH» 00H» 00H: 00H: 00H» 00Hs00H200H 


OOHr OOH? OOH» 44H» 2BHs 10H 28H» 44H 


OOH» 00Hs00Hs 00H? 00H? 00Hs 00H: 00H 


OOH» 00H? OOH: 44H» 44H 44H» SCH? 04H 
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0794° 44 44 3C 04 


0798' 38 00 00 00 DE 38H» 00H» 00H» 00H» 00H» 00H» 00H» OOH 
079C' 00 00 00 00 
07A0' H7At 
07A0' 00 00 00 7C DB OOH» 00H» 00H» 7H» OBHy 10H» 20H 7CH 
07A4' 08 10 20 7C 
07A8' 00 00 00 00 DE 00H» 00H» 00H» 00H» 00H» 00H» 00H» 00H 
O7AC' 00 00 00 00 
0780" H7B} 
07B0' 00 18 20 20 DB «OOH 18H» 20H» 20H» 40H» 20H» 20Hy 18H 
O7B4' 40 20 20 18 ) 
07B8' 00 00 00 00 DE 00H 00H» 00H» 00H» 00Hs00Hs00H» 00H 
O7BC' 00 00 00 00 
07C0' H7C! 
07C0' 00 10 10 10 DE OOH» 10H» 10H» 10H» 00H 10H 10H» 10H 
0704" 00 10 10 10 
07C8' 00 00 00 00 DE 00H 00H» 00H» 00H» 00H» 00H, 00H» 00H 
O7CC' 00 00 00 00 
0700' H7D 
07D0' 00 30 08 08 DE 00H» 30H» 08H» OSH 04H» OBHy OSH 30H 
07D4' 04 08 08 30 
0708' 00 00 00 00 DE 00H» 00H» 00H» 00H» 00H» 00H» 00H 00H 
07DC' 00 00 00 0 
07EO' H7E! 
O7E0' 00 3458 00 | DE OOH 34Hr 58H 00H» 00H» OOH OOH 00H 
O7E4' 00 00 00 00 
07E8' 00 00 00 00 DB 00H» 00H»00H»00H»00H»00H»00H» 00H 
— O7EC' 00 00 00 00 
O7FO' H7F 
O7FO' FF FF FF FF DB «OF FH» OF FH» OF FH» OF FH, OFFH» OF FH» OFFH OFFH 
O7F4' FF FF FF FF 
O7F8' FF FF FF FF DB «OF FH» OFFHy OF FH» OF FH» OF FHy OFFH» OFFHs OFFH 


O7FC' FF FF FF FF 
END 
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Macros 

Symbols: 

0000'  HO0 
0030'  HO3 
0040' HO6 
0090' HOF 
0OCO' HOE 
OOFG' HOF 
0120' Hi? 
0150' H15 
0180' His 
O1BG' HIB 
O1E0' HIE 
QO710' H21 
0240’ H24 
Q270' Hz? 
0240' HZA 
0200' H2D 
0300' 30 
0330' H33 
360' H3é6 
0396' H39 
0300' H3C 
O3F0' H3F 
0420' H4? 
0450' H4S 
0480' H48 
O480' HB 
O460' HAE 
0510' Hi 
0340' H54 
0570' Hd? 
Q5A0' HSA 
0500' HD 
0400'  Hé0 
0630'  4Hé3 
06460' Hdd 
04690'  Hé9 
06C0' HAC 
Q6F0'  HéF 
0720' 72 
0750' H75 
0780'  4H78 
07B0' H7B 
07E0' H7E 


No Fatal error(s) 
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0010' Hdl 
0040' HO04 
0070'  HO07 
OOAG' HOA 
O0D0' HOD 
0100' HIG 
§130' Hi3 
0160' Hié 
190° Hig 
01c0' «HIE 
O1F0' HIF 
O220' H2z 
§250' H25 
0280' H28 
O2B0' HzB 
OZE0' HE 
0310' H31 
0340' H34 
Q370' H3/ 
O3A0'  H3A 
0300' H3B 
0400' H40 
§430' H43 
0460' H46 
0490' H49 
04C0' H4C 
O4F0' HAF 
0520' Hz 
0550' HSS 
0580' H58 
QOSB0' HSE 
O5E0' HSE 
0610' Hél 
04640' Hé4 
04670' Ha? 
06A0'  HéA 
O4D0' Hdd 
0700'  H70 
0730' H73 
0740' H7é 
0790' H?79 
0700' H/C 
O7FQO' H?F 


§ 


0020' 
0050' 
0080' 
OOBO' 
Q0EO' 
0110' 
0140' 


0170' © 


Q1A0' 
0100" 
0200" 
0236' 
0260! 
0290' 
0200' 
O2FO' 
0320" 
0350' 
0380" 
0380' 
03E0' 
0410' 
0440" 
0470' 
O4A0' 
0400" 
0300" 
0530" 
0560' 
0570" 
Q5C0' 
O5FO' 
0420' 
0650' 
0480' 
0660' 
06E0' 
0710' 
0740' 
0770! 
07A0' 
07D0' 


D. Bootstrap ROM Listing 


0000 
000A 
0008 
0020 
0002 
0029 
0034 
002A 
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BOOTSTRAP PROM FOR PIED PIPER COMMUNICATOR I 


COPYRIGHT SEMI-TECH MICROELECTRONICS CORPORATION 


oe 


THE BOOT PROM PERFORMS THE FOLLOWING: - 


1, HARDWARE INITIALIZATION 

2, START UP DIAGNOSTICS 

3+ SOFTWARE INITIALIZATION 

4. READ IN BOOT SECTOR FROM DISK 
J+ PASS CONTROL TO BOOT PROGRAM 


ee Ne PP SPP "SP OH Ph OO OS 


> Sep 


_ THE FOLLOWING EQUATES MUST BE VERIFIED FOR PRODUCTION 


CMDREG - CONMAND REGISTER 

STAREG - STATUS REGISTER 

VICBAS - PVTC BASE ADDRESS 

VTIDAT - PYTC INPUT BUFFER 

VIODAT - PUTC OUTPUT BUFFER 

VICHOD - PVTC MODE REGISTER 

VTMODE - PVTC MODE 

KEYBD - KEYBOARD BASE ADDRESS 

CAFREG - CAPITAL LOCK STATUS REGISTER 
CAPLCK - CAPITAL LOCK BIT 

PROMST - PROM PROGRAM ORIGIN 

ROMSAD - UPPER HALF OF ROM START ADDRESS 
ITRVEC - INTERRUPT VECTOR HIGH BYTE 

PROMAD - ADDRESS OF LOWER HALF OF ROM TO MOVE TO 
NIBEG - START ADDRESS OF UPPER MEMORY TEST 
MISIZE - SIZE OF UPPER MEMORY TEST 

NZBEG - START ADDRESS OF LOWER MEMORY TEST 
MZ5IZE - SIZE OF LOWER MEMORY TEST 

MEMEND - END OF MENORY 

TOREG1 - STATUS REGISTER 

FDBASE - FLOPPY DISK CONTROLLER BASE ADDRESS 
WHDBAS - HARD DISK CONTROLLER BASE ADDRESS 


SPECIAL CHANGES MADE FOR PP TESTING CAN BE FOUND BY SEARCHING 
FOR THE PATTERN ‘3 '{° 


OP HP 8h Rh NOP RP RP 8 OR 8h OH OR OR RR RP RP ASP OH NOR RR 8PM NR Oh CRP OR OP OP OR CS 


GENERAL EQUATES 


CR EQU ODH § CARRIAGE RETURN 
LF EQU OAH » LINE FEED 

BS EQU 08H 
BLANK EQU 20H 
CNTLB EQU 02H 
DISPON EQU 29H 
MEMTST EQU 34H 
DSKTST EQU ZA 


BLANK 

RETRY BOOT 

DISPLAY ALL MESSAGE - FUNC-S 
MEMORY TEST - FUNC-M 

DISK TEST - FUNC-D 


Se Sr hr HP Wh 
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0000 PVTCRO EGU 00H + VIDEO RAM READ BANK 0 - FUNC-1 

0001 PVTCHO EGU O1H > VIDEO RAM WRITE BANK 0 - FUNC-2 
in 0009 PVTCR1 EQU O9H > VIDEO RAM READ BANK 1 - FUNC-3 

O00A PVTCWL EQU OAH VIDEO RAM WRITE BANK 1 - FUNC-4 


ape fh 


0002 RAMRD = EQU 02H MEMORY READ - FUNC-5 
0003 RAMHR = EQU 03H > MEMORY WRITE - FUNC-6 
O0AS TSTPAT EQU OASH ¢ TEST PATTERN FOR MEMORY TEST 
$ 
$ GENERAL REGISTERS 
? 
0018 CMDREG EQU 18H ¢ COMMAND REGISTER (WRITE ONLY) 
+ BIT 7 = 1 - DISABLE KEYBOARD SCAN 
> BIT 6 = 1 - ENABLE HARD DISK INTERRUPT 
+ BIT 5 = 1 - ENABLE TIMER INTERRUPT 
+ BIT 4 = 1 - ENABLE KEYBOARD INTERRUPT 
s BIT 3 = PRINTER DATA STROBE 
> BIT 2 = FLOPPY DISK SIDE SELECT 
+ BIT 1 = SELECT FLOPPY DISK DRIVE B 
| ) » BIT 0 = SELECT FLOPPY DISK DRIVE A 
0005 TIMER EQU "] + TIMER ENABLE BIT 
0018 STAREG EGU 18H > STATUS REGISTER (READ ONLY) 
> BIT 7 = KEYBOARD SCANNER STATUS 
» BIT 6 = FLOPPY DISK INDEX 
+ BIT 3 = 1 - PRINTER BUSY 
; = 0 - PRINTER READY 
* BIT 4 = 0 CAPITAL LOCK 
§ BIT 3-1 = INTERRUPT 
; = 0 - DISK DATA REQUEST 
} = 1 - DISK INTERRUPT REQUEST 
; = 2 - PUTC INTERRUPT REQUEST 
; = 3 - KEYBOARD INTERRUPT REQUEST 
; = 4 - TIMER INTERRUPT REQUEST 
; = 5 ~ EXPANSION J8 
' = 6 - EXPANSION J7 
; =7- Jl 
+ BIT 0 = 1 - INTERRUPT PENDING 
$ 
; PVTC REGISTERS 
$ 
0000 VICBAS EAU OOH + VTC BASE ADDRESS 
0000 VICINI EQU VICBAS+0 + INITIALIZATION REGISTER 
0001 VICSTA ERU VICBAS+1 + STATUS REGISTER 
0001 VICCHD EGU VICBAS+1 $ COMMAND REGISTER 
0002 VTCSCi EU VTCBAS+2 ¢ SCREEN START REGISTER 1 
6003 VTCSC2 EQU VICBAS+3 s SCREEN START REGISTER 2 
0004 VICCUL EQU VICBAS+4 + CURSOR REGISTER 1 
0005 VICCUZ EQU VICBAS+S > CURSOR REGISTER 2 
0006 VTCPT1 EQU VICBAS+4 + POINTER REGISTER 1 
0007 VICPT2 EQU VICBAS+7 + POINTER REGISTER 2 
0000 VTIDAT EQU VICBAS+0DH 3 INPUT DATA REGISTER 
001C VTODAT EQU VICBAS+1CH § QUTPUT DATA REGISTER 
001D VICHOD EQU VTICBAS+1DH + MODE REGISTER 
f 


; PVTC COMMANDS 


$ 
0000 VTCRST EQU 000000006 > YTC RESET 
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OOAB 


OOAA 
OOBE 
OOAC 
OOAD 
0030 
0028 
0031 
0030 
0020 
0010 
0008 
0004 
0080 
O7FF 


0050 . 


0048 
0004 
0003 
0018 
0040 
6001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 
0054 


0044 
0032 
000E 
0066 
0017 
004F 
0008 
0009 
9080 
0010 
0080 


0050 
0017 
0000 
0001 


0008 
0008 
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WRINC 
WRCUR 
WRCP 

RDCUR 
RDINC 
ONDICU 
OFFDIS 
CURON 
CUROFF 
VICRDY 
VBLANK 
LINZER 
SPLITS 
VICBEG 
VICEND 
RSTVBL 
RSTLNO 
VEIT 

LINEO . 
INTHSK 
RSTNSK 
COL40 
REVID 
INTENS 


CHARZK 


INTERL 
BONH 
DOT? 
BEEP 
VTMODE 


$ 
MAXCOL 
MAXLIN 
SCRLOF 
SCRLON 
; 

} 

; 
KEYED 
KEYBDA 


EQU 
EQU 


1-2 

101010118 + WRITE AT CURSOR AND INCREMENT 
101010108 s WRITE AT CURSOR 
LO1110116 » WRITE FROM CURSOR TO PRINTER 
101011008 + READ AT CURSOR 
LOLOLIOIB * READ AT CURSOR AND INCREMENT 
OO0111191B * DISPLAY ON | 
OO101000E » DISPLAY OFF 

001100018 ¢ CURSOR ON 

0011000086 + CURSOR OFF 

601000008 + VTC READY MASK 
000100008 : VIC VBLANK MASK 
000010006 * VTC LINE ZERO MASK 
000001008 + VTC SPLIT SCREEN MASK 
Q080H + VTC START ADDRESS 
O7FFH > VTC END ADDRESS 
010100008 s RESET VBLANK 
O1001000B + RESET LINE ZERO 

4 + VBLANK BIT 

3 + LINE ZERO BIT 

18H ¢ INTERRUPT STATUS MASK 
40H + RESET COMMAND 
000000018 + 40 COLUKN 

000000108 > REVERSE VIDEO 
000001008 + HIGH LIGHT 

000010008 + REDUCE CHARACTER SET 
000100006 > INTERLACE 

001000008 > BLACK ON WHITE 
010000008 9 7 DOTS HORIZONTAL 
100000008 s ACTIVATE BEEP 
INTERL+INTENS+DOT7 


PUTC INITIALIZATION REGISTERS 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


010001008 
001100108 
000011108 
011001108 
OO0O101118 
OL0011116 
000010008 
000010018 
19000000B 
000100006 
100000008 


PYTC CONSTANTS 


EQu 
EQU 
EQU 
EQU 


KEYBOARD 


EQU 
EQU 


80 

23 

0 ¢ SCROLL OFF 

1 ¢ SCROLL ON 

08H + BASE ADDRESS 
sEYED+0 ¢ DATA REGISTER 
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0009 KEYBST EQU KEYBD+1 > STATUS REGISTER 
0009 KEYBCM EQU KEYBD+1 + COMMAND REGISTER 
oo OO0F KEYBMK EQU OOOO1111B + KEYBOARD STATUS MASK 
0000 KEMOD1 EQU 000000006 + ENCODED SCAN: 2-KEY LOCKOUT 
002A KBMODZ EQU 001010108 + PROGRAM CLOCK FOR 20 MSEC INTERVAL 
003F KEYMSK EQU OOL111118 + CONTROL AND SHIFT BITS MASK 
0004 SHIFT  EQU é + SHIFT KEY DEPRESSED BIT 
0007 CNTL © EQU 7 + CONTROL KEY DEPRESSED BIT 
0007 KBDENA EQU 7 + KEYBOARD SCAN ENABLE/DISABLE BIT 
0018 CAPREG EQU STAREG + CAPITAL LOCK REGISTER 
0004 CAPLCK EQU 4 ~ $ CAPITAL LOCK BIT 
0005 CAPBIT EQU a) + UPPER CASE BIT 
0005 PT0S = EQU a + 30 MSEC DELAY FOR AUTO REPEAT 
0050 ONESEC EQU 80 + B00 MSEC DELAY FOR REPEAT 
# 
; PROGRAM ADDRESSES 
t 
0000 FROMST EQU OOH 
OOFE TTRVEG § EQU OFBH ¢ INTERRUPT VECTOR HIGH BYTE 
F4A0 ROMSAD EQU OF4A0H + ADDRESS OF UPPER AREA OF PROM 
F000 FROMAD EQU OF OOOH + ADDRESS TO MOVE PROM TO 
1000 ROMSIZ EQU 1000H + SIZE OF PRO 
8000 MiBEG  EQU 8000H + START ADDRESS FOR UPPER MEMORY TEST 
FFFF M3BEG  EQU OFFFFH > START ADDRESS FOR MEMORY LOOP TEST 
8000 MISIZE EQU 8000H + UPPER MEMORY TEST SIZE 
0000 MZBEG ©EQU PROMST + START ADDRESS FOR LOWER MEMORY TEST 
EFFF M4BEG = EGU OEFFFH + START ADDRESS FOR MEMORY LOOP TEST 
FO00 M2SIZE EQU OF OOOH + LOWER MEMORY TEST SIZE 
FFFF MEMEND EQU OFFFFH + END OF MEMORY 
t 
; FLOPPY DISK CONSTATNS 
f 
0018 SEL EQU CMDREG + DISK SELECT PORT 
0010 FOBASE E@U 10H + FLOPPY DISK CONTROLLER BASE ADDRESS 
0010 FDOCHD = EQU FDBASE +0 + FLOPPY DISK CONTROLLER COMMAND REGISTER 
0010 FDSTAT EQU FDBASE+0 + FLOPPY DISK CONTROLLER STATUS REGISTER 
0011 FOTRK QU FDBASE+1 + FLOPPY DISK CONTROLLER TRACK REGISTER 
0012 FOSEC 3 EQU FDBASE+2 + FLOPPY DISK CONTROLLER SECTOR REGISTER 
0013 FDDATA EQU FDBASE+3 > FLOPFY DISK CONTROLLER DTA REGISTER 
$ 
0000 RSCHD  EQU 000000008 + FLOPFY DISK RESTORE COMMAND 
0008 HDLOAD EQU 000010006 + FLOPPY DISK HEAD LOAD BIT 
0082 ROCHD  EQU 100000108 + FLOPPY DISK READ SECTOR COMMAND 
0000 RACHD = EQU 110000008 + FLOPPY DISK READ ADDRESS COMMAND 
0004 VERIFY EGU 00000100B + FLOPPY DISK COMMAND VERIFY BIT 
$010 SKCMD EQU 000100008 + floppy disk seek command 
0050 SICMD  EQU 010100008 + floppy disk step in command 
OO0AZ WRCMD  EQU 101000106 t floppy disk write sector command 
00D0 FITRFT EQU 110100008 + FLOPPY DISK FORCE INTERRUPT COMMAND 
0003 SLOSTF EQU 00000011B + SLOW STEPPING RATE 
void SPDOLE EQU 21777 + FLOPPY DISK DRIVE SPEED LOWER BOUND 
JEBA SPDUB  EQU 22666 + FLOPPY DISK DRIVE SPEED UPPER BOUND 
} 
ern, 8000 VFYBUF EQU 8000H $ DISK TEST BUFFER 
0080 BUF EQU 80H + DEFAULT BUFFER ADDRESS 
0001 DSKA ~—s EU 1 > DISK DRIVE INDICATOR 
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0007 SELNSK EQU 000001118 + DISK SELECT MASK 

+ BIT 0-1 DRIVE NUMBER 

+ BIT 2 SIDE 
O0F8 TOMSK = EQU L111 10008 + I/O REGISTER MASK FOR DISK SELECT 
$003 DSK EQU OOOOO01IE + DISK DRIVE MASK 

+ BIT 0 -- DRIVE A 

+ BIT 1 -- DRIVE B 


0010 SKERR = EQU 000100008 + seek error status wask. 
0010 RNF EQU 000100008 + record not found status mask 
0020 HLD EGU 001000008 
0098 RSERR EQU 100110008 + RESTORE ERROR MASK 
OO9E RDERR  EQU LOOLL1108 + FLOPPY DISK READ ERROR MASK 
0080 TIMEXF EQU 10000000E + TINED OUT ERROR 
0007 EXPTIM EQU 7 + TIMED OUT BIT 
0002 SIDE!  EQU Z + FLOFFY DISK SIDE SELECT BIT 
0005 OSIDE EQU a + FLOPPY DISK SELECT BYTE SIDE INFO BIT 
$ 
0000 DSSTEF EQU 0 » STEPPING RATE FOR DS FLOFFY 
000A RETRY . EQU 10 + MAXIMUM NUMBER OF RETRIES 
0005 WRCMND EQU a + FLOFFY COMMAND WRITE BIT 
AZED INICOD EQU OAZEDH + INT INSTRUCTION 
ASED QUTICD EQU OASEDH + QUTI INSTRUCTION 
00C9 RETCOD EQU OC9H + RET INSTRUCTION 
$ 
} HARD DISK CONSTANTS 
? 
030 WHDBAS EQU 30H + CONTROLLER BASE ADDRESS 
. 0037 HDCHD = EQU WHDBAS+7 + COMMAND REGISTER 
0037 HDSTAT EQU WHDBAS+7 + STATUS REGISTER 
0036 HDSBH = EU WHDBAS+4 > SECTOR SIZE+ DRIVE: HEAD SELECT 
0035 HOCYLH EQU WHDBAS+5 : CYLINDER HIGH BYTE 
0034 HDCYLL EQU WHDBAS+4 + CYLINDER LOW BYTE 
0033 HDSEC 3= EQU WHDBAS+3 + SECTOR NUMBER 
0032 HDCNT EQU WHDBAS+2 + SECTOR COUNT 
0031 HDWPC 3=-EQU WHDBAS+1 + WRITE PRE-COMPENSATION 
0031 HDERR  EQU WHDBAS+1 + ERROR REGISTER 
0030 HDDATA EQU WHDBAS+0 + DATA REGISTER 
t 
0020 HDREAD EQU 001000008 > READ SECTOR COMMAND 
0000 HDERRS E@U 0 + ERROR BIT 
$ 
ORG PROMST 


HARDHARE INITIALIZATION 


0000' OMBEG: 
0000' = F3 DI » DISABLE INTERRUPT 
0001' 18 25 JR TTABEN + HOP AROUND INITIALIZATION TABLE 
? 
; INITIALIZATION TABLE 
} 
0003" INITAB: 
0003' 25 DB ITABEN - INITAB 
0004' «18 00 DB CHDREG 
0006' 10 DO DE FOCKD »FITRPT 
0008' 1D 34 DB VICHOD» VIMODE 
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OOOA' 01 00 DE VICCHD » VICRST 
000C' 91 00 DE VTCCHD» VICRST 
QOO0E' 00 44 DE VICINIs TRO 
0010’ = 00 32 DE VICINTs TR1 
0012' 00 0E DE VICINIyIRZ 
O014' 00 46 DE VICINIsIR3 
0016' 00 17 DE VICINIsIR4 
$018' 00 4F DE VICINIs IRS 
OO1A' 00 08 DE VICINI» IR6 
O0iC' 00 09 DE VICINI»IR7 
OO1E' 00 86 DB VICINTs IR8 
0029' 90 10 DE VICINI»IR9 
0022' 00 80 DB VICINIyIR16 
0024' = =—99 00 DB KEYBCM » KBMOD1 
0026" 09 2A DE KEYECH» KBMOD2 
0028" TTABEN: 
0026' 21 0003! LD HL y INITAE + POINT 10 TABLE 
OOZB' 44 LD By (HL) 3 OBTAIN LOOP COUNTER 
002C' CE 38 SRL E + DIVIDE BY THO 
002E' INILF1; 
O02E' 23 INC HL 
O02F' 4€ LD Cs (HL) ¢ GET PORT ADDRESS 
0030' 23 INC HL 
O031' 7E LD As (HL) + GET INITIALIZATION BYTE 
0032' ED 79 OUT (C)9A 
0034' 10 FB DUNZ  INILPI 
f 
} HARDWARE INITIALIZATION DONE 


START UP DIAGNOSTICS 


Ce ee Se et ee 


1, CPU TEST 
0036° = AF XOR A + GENERATE NC» Zy PEs P 
0037' ED 47 LD TA + INITIALIZE ERROR INDICATOR 
0039' DA 0071' JF CrCPUERR + TEST IF FLAGS SET PROPERLY 
003C' C2 0071' JP NZ» CPUERR 
O03F' Ez 0071" JP POyCPUERR 
0042' FA 0071' JP Me CPUERR 
0045' Dé 02 SUB Z s GENERATE Cy NZ» POs ¥ | 
0047' D2 0071' JP NC rCPUERR * TEST IF FLAGS SET PROPERLY 
004A’ CA 0071! JF Z»CPUERR 
004D' = EA 0071' JP PE sCPUERR 
0050' F2 O071' JP Fy CPUERR 
0053' 3E FF LO ArOFFH + LOAD REGISTERS WITH PATTERN 
0055 ' NATTSTs 
0055' = 47 LD BA 
0056' 48 LD CoB 
0057" = Sl LD Del 
0058' SA LD ErD 
0057" = 43 LD HE 
005A' =a LD Le 
O05B' 08 EX AF AF’ 


O05C' 7D LD ArL 


0050" 
O05E' 
Q05F ' 
0040' 
0041' 
0062’ 
0063’ 
0064" 
00635' 
0067' 
0067" 
O06E' 
O04C' 
006E' 
O06E' 
O04F' 
0071" 
0071' 
0072" 


0072" 
0075! 
0078' 
007A' 
0078" 
—O07E! 
0081" 
0082' 
0084' 
0083" 
0086 ' 
0087" 
008A’ 
008A" 
Q08B" 
008C' 
008D' 
O08E' 
Q08F ° 
0090' 
0091" 
0093 ' 
0094" 


0096" 
0096' 
0098" 
O0FA' 
009D' 
09D" 
O09F' 
O0A0' 
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Zi 04A0' 


3E 38 
D3 01 
01 0000 
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CPUTST$ 


CFUERR: 


CPUEND: . 


t 
& 
$ 
a 
? 


TSTLPL: 


“Tl wen Sh ee 


PVTCL: 


1-4 


Bra 

CyB 

DC 

EsD 

HrE 

L+H 

AF + AF ' 

NC eCPUTST 
OFFH 

NZ» CFUERR 
A + SET FOR SECOND PATTERN 
NXTTST 


A 
ZyCPUEND 


+ CPU ERROR 


2+ ROM CHECKSUM 


HL LAST + COMPUTE SIZE OF LOWER HALF OF CODE 
BC »FROHST 

HL s BC 

DE HL + SAVE FOR LATER 

HL » CHKSUM + POINT TO CHECKSUM ADDRESS 
BC sROMSAD 

A 

HL BC + COMPUTE UPPER HALF ROM SIZE 
HL DE 

BrH 

CL 

HL »ROMBEG + POINT TO START OF CODE 

(HL) + COMPUTE CHECKSUM 

EsA + SAVE FOR LATER 


HL + POINT TQ NEXT BYTE 
BC 3 CHECK IF NO MORE 


ArE 
NZ: TSTLP1 
(HL) 
NZ>CPUERR 


s RETRIEVE CHECKSUM 


+ COMPARE WITH PRE-DETERMINED VALUE 
+ HALT IF PROM ERROR 


Ay INTMSK+RSTMSK 
(VTCCMD) 2A 
BCs9 


» CHECK PVTC OPERATION 
+ DELAY LOOP 


PVTCi 
C 
NZsPYTCL 


O0AZ' 
OOA4' 
Q0A6' 
OOAB' 
QOAA’ 
QOAE" 
DOAD' 
QOAF' 
O0B2' 
OOB3 
O0B3' 
OOBS' 
OOB8' 
OOBA' 
OOBE' 
OOBC' 
OOED' 
OOBF ' 
O0C1' 
00C3' 
0003" 
00CS' 
00C4' 
0008" 
OOCA' 
OOCC' 
OOCE ' 


OOCE' 


00D0' 
0002" 
00D4' 


0007" 
0007" 
0008" 
QODA' 
O0DC' 
OODF' 
O0EO' 
Q0E0' 
OOE2" 
O0E4' 
O0E7' 
O0E9' 
OOE?' 
OOEB' 
OOEC' 
OQOEE' 
OOEF' 
OOF 1" 
O0F 3" 
O0FS' 
OOF8' 
O0FA' 
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PUTC23 


PUTCER: 


ED 47 

C3 0967! 
} 
; 


’ 
HAITLOS 


VTSTLP: 


WAITLI’ 


WAITLZ¢ 


1-7 

As(VICSTA) + GET STATUS 
VICRDY+VBLANK+LINZER 
VICRDY+VBLANK+tLINZER 

NZsPVTCER + ERROR IF NOT ALL SET 
A + SET STARTING ADDRESS 
(VICCUL) A 

(VICCUZ) A 

HL sVTCEND + SET ENDING ADDRESS 
AL + SET ENDING ADDRESS 
(VICFTID A 

ArH | 

(VICFTZ) A 

As TSTPAT > SET UP TEST PATTERNS 
ErA 

DrA 

(VTODAT) 2A + LOAD UP TEST PATTERN 
ArWRCF 

(VICCHD) sA 

PYTC2 + SOFTWARE TIMER LOOP 
C 

NZ»PVTC? 

Ay (VICSTA) + GET STATUS 

VICRDY > CHECK IF READY 

NZ sWAITLO + OK IF SET 

AsI + SET ERROR 

OrA 

TrA 


INDBAD-ROMSAD+LAST-PROMST 


DISPLAY RAM 


A > SET STARTING ADDRESS 


(VTCCUL) of 
(VICCUZ) 9A 
BC »VICEND 
BC 


AyRDCUR 
(VICCHD) 9A 
HL »HAITLi 
VICHAIT 


Ay (VTIDAT) 
D 
NZ*VICERR 
ArvE 
(VTODAT) 9A 
Ay WRCUR 
(VICCMD) 2A 
HL sWATTL? 
VICWAIT 


+ SET LOOP COUNTER 


> READ BACK FOR COMPARISON 


¢ BRANCH IF ERROR 
+ GET NEXT PATTERN 


+ WRITE OUT 
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3E AD LD 
D3 O1 | QUT 
21 0103" LD 
18 28 JR 

WAITL3: 
DE OD IN 
EE CP 
20 08 JR 
OF DEC 
78 LD 
Ei OR 
20 D3 Jk 
B7 OR 
28 22 JR 

VTICERR: 
21 0080 LD 
7 LD 
D3 04 OUT 
7 LD 
D3 05 OUT 
3E 3D LO 
D3 01 QUT 
21 O122' LD 
18 09 AR 

VTCERN: 
ED 3/7 LD 
CE CF SET 
ED 47 LD 
C3 0987" JP 

VICWAIT: 
DE O1 IN 
E4 20 AND 
28 FA Jk 
E? uP 

j 

} 

j 

VTCOK: 
21 0080 LD 
7D LD 
D3 04 OUT 
D3 02 OUT 
7C LD 
D3 05 OUT 
D3 93 OUT 
11 O7FF LD 
7B LD 
D3 04 OUT 
7h LD 
D3 07 OUT 
JE 20 LD 
D3 iC OUT 
3E EB LD 
D3 01 OUT 
21 0155' LD 


1-8 


ArRDINC + READ BACK AND COMPARE 
(VTCCMD) 2A 7 
HL »HAITL3 
VTICWAIT 


Ar (YTIDAT) 

E 

NZ>VICERR 

EC + CHECK IF MORE TO CHECK 
AB 

C 

NZNTSTLF 

A + CHECK IF ERROR 

ZrVTCOK 


HL VICBEG 

AeL + SET UP CURSOR 
(VICCUL) sé 
AsH 
(VTCCUZ) 9A 
As ONDICU 
(VICCHD) A 
HL »VTCERW 
VICWAIT 


¢ TURN ON DISPLAY 


Arl + GET ERROR INDICATOR 
13A s SET PVTC ERROR BIT 
Ish + SAVE INDICATOR 
INDBAD-RONSAD+LAST-PROMST 


As(VTCSTA) > GET STATUS REGISTER 
VICRDY + CHECK IF READY 
ZyVICWAIT ¢ REPEAT IF NOT 

(HL) + SIMULATED RETURN 


SET UP PYTC FOR DISPLAY 


HL» VICBEG + GET PVTC START ADDRESS 


ArL 
CVTCCUL) A 
(VICSC1) 9A 
AsH 
(VICCUZ) A 
(VTCSC2) 9A 
DE VICEND + GET PVTC END ADDRESS 
AsE 

(VICPT1) 9A 

AsD 

(UTCFTZ) 2A 

Ay BLANK > BLANK OUT DISPLAY 
(YTODAT) sA 

AyWRCF 

(VTCCMD) 2A 

HL »WAITTL4 

VICWAIT 


MACRO-80 3.44  09-Dec-8! PAGE 1-9 
0155" WAITL4! 
0155' 7D LD As + SET UP CURSOR 
0156' 03 04 QUT © (YTCCUL) 2A 
o158' 7¢ lo 
W159" 03-05 QUT © (VTCCUZ)sA 
O15R' 3E 2 LD sAPONDTCU ; TURN ON DISPLAY 
O150' D3 01 QUT © (VTCCHD) 7A 
OIF’ 21 0164 LO HL» HATTLS 
0162' 18 C7 JR «UTCHATT 
0164 WATTLS! 
0164" DD 21 0308! LD «IX ySTCNON + POINT TO SIGNON MESSAGE 
0168 FD 21 O14F! LD TY sHATTL4 
O16C' C3 O2E2" JP PME 
OLGF WAITL4! 
f 
; CHECK IF DISPLAY REQUIRED 
OR ANY TEST SHOULD BE ACTIVATED 
; 
Q14F' OL 9000 LD BtN + SET UP SGFTHARE TIMER 
O17! WATTLE? 
D172! OF 09 IN ARfKEYEST) «st CET KEYBOARD STATUS 
0174" EOF AND = KEYENK : CHECK IF DATA AVATLABLE 
0174" 20-98 JR ONZyHEYRDY 
017° 08 DEC «=O. SOS*«~:«CHE CK ZF TIMED QUT 
0179" 78 LD ANE 
0174" EL mk Of 
O17B' 20 FS | JR sONZpHATTLE 
OLD! C3 0384" JP NODISE 
_ 0180' KEYRDY! 
0180' DE 08 IN Ar(KEYEDA) ss $- GET KEY ENTERED 
0192' FE 29 cP = sOISPON + CHECK IF DISPLAY REQUIRE 
0184 CA 037E! PZ ySHOM 
0187' FE 34 CP MEMTST + CHECK IF ACTIVATE MEMORY TEST 
0189’ 28 OB JR Ty TESTHA 
O188' FE 2A CP ODSKTST + CHECK IF ACTIVATE DISK TEST 
018D' C2 0384" JP NZ»NODISF 
0190' ED 57 LD av 
0192' CB OF SET yA + SET INDICATOR FOR LATER 
0194" «ED 47 LOA 
f 
TEST UPPER MEMORY FIRST 
f 
0196' TESTA 
0196' DD 21 0319: LD Xs TMMSC ; DISPLAY MEMORY TEST MESSAGE 
0194 FD 21 LAL" LO «TY» TSTHEN 
O19E' C3 O2E2" JP PSC 
O1AL' TSTHEM! 
O1A1' 08 EX AF PAF" + SET FOR FORNARD DIRECTION 
O1A2' AF YOR oA 
01A3' 08 EX ASF? 
0144" 16 01 LD CE OWN + INITIALIZE TEST PATTERN 
O1A6' NXPAT3} 
016! 21 8000 LD sHLy MABEC + GET STARTING ADDRESS 
0189" 01-8000 LD «BE sMASTZE : SET UP LOOP COUNTER 
O1AC' LOLPS! 
OAc! 73 LD (HLS + LOAD PATTERN IN MEHORY 


O1AD' 
O1AE' 
OLAF’ 
O1E0' 
O1B1' 
01B3' 
O1BS' 
O1ES' 
O1EC' 
O1BC' 
Q1BF’ 
01C2' 
0102! 


0103" 


0104" 
01C3' 
010?" 
01C8' 
0109! 
O1CA' 
O1CB' 
01CD' 
O1CD' 
O1CE' 
O1CF 
0100! 
O1D1' 
— $103" 
0105 ' 
O1D9' 
Q1DC' 
01DC' 
01DD' 
O10F' 
Q1E1' 
O1E2' 
O1E4' 
O1E5' 
Q1E7' 
O1E7' 
OLEA' 
O1ED' 
O1ED' 
O1EE’ 
O1EF’ 
OLFO' 
O1F1' 
O1F2' 
O1F4' 
O1F6' 
O1FA' 
O1FD' 
O1FD' 
0200" 
0203' 
0203' 
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23 
OB 


78 


Bl 

£0 FF 

3E O01 

FD 21 O1BC' 
C3 0290" 


21 FFFF 
01 8000 


7B 
we 
BA 
20 43 


ZF 


SE 01 
FD 21 010C' 
C3 0290" 


21 FFFF 
01 8000 


FD 21 O1FD' 
C3 9290! 


21 8000 
01 8000 


7B 
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CHECKS: 


CHKLP3: 


NXTAD3: 


NXADR3: 


NXPATS¢ 


LOLFo: 


CHECKS: 


CHKLPS; 


1-16 


HL + INCREMENT MEMORY INDEX 
BC + REPEAT UNTIL ALL LOADED 
ASB 


C 
NZ»LDLF'3 
ArO1H + SET TO FLASH DRIVE A LED 
TY sCHECK3 + SET RETURN ADDRESS 
FLHLP + FLASH LED 
HL »M3BEG + COMPUTE END ADDRESS 
BC sM1SIZE > SET UP LOOP COUNTER 
ASE + GET TEST PATTERN 
Dy (HL) + GET MEMORY CONTENT 
D > COMPARE WITH PATTERN 
NZ» M3ERR 

+ COMPLEMENT PATTERN 
CHL) eA + LOAD IN MEMORY 
Dy (HL) 
D + AND CHECK IMMEDIATELY 
NZsH3ERR 


HL + DECREMENT MEMORY INDEX 
EC + REPEAT UNTIL ALL CHECKED 


ArC 

B 

NZ»CHKLP3 

AsO1H + SET TO FLASH DRIVE A LED 
TY sNXADR3 

FLHLF 

4 + CLEAR CARRY FLAG 

E + UPDATE PATTERN 

NC sNXPAT3 

AF s AF’ 

Ari $ SET FOR BACKWARD DIRECTION 
AF sAF' 

ErO1H ¢ INITIALIZE TEST PATTERN 
HL» M3BEG + GET STARTING ADDRESS 

BCs MISIZE + SET UP LOOF COUNTER 

(HL) sE + LOAD PATTERN IN MEMORY 


HL + DECREMENT MEMORY INDEX 
BC + REPEAT UNTIL ALL LOADED 
Ark 


C 

NZyLDLPS 

ArOiH + SET TO FLASH DRIVE A LED 
TY: CHECKS s SET RETURN ADDRESS 

FLHLP + FLASH LED 

HL» MIBEG + COMPUTE END ADDRESS 

BC rMISIZE * SET UP LOOP COUNTER 

ArE > GET TEST PATTERN 


0204' 
0205' 
0204 ' 
0208" 
0209" 
0208" 
020B' 
020C° 
0206" 
O2Z0E' 
O20F' 
0210" 
0211' 
0212! 
0214' 
0216" 
O214' 
021D' 
021D' 
Q21E' 
0220' 
Q222' 
0224" 
O226' 
0227" 
O22C' 
O22C' 


022E' 


0230' 
0232! 
0236" 
0238" 
0230" 
0230" 
O23E' 
0242! 
0245 ' 
0245 ' 
0246" 
024A! 
024D' 
024)! 
0251! 
0255! 


Q258° 


0258" 
0259! 
0250" 
0240' 
0240' 
0264° 
0268' 
0266" 
0248" 
0260" 
0270! 
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SE O1 
FD 21 0210" 
C3 029D' 


AF 

CB 23 
30 C5 
ED 37 
CE 3? 
CA 0288" 
C3 O1A1' 


ED 37 

CB D7 

ED 47 

DD 21 032A’ 
FD 21 0230' 
C3 O2E2' 


HU 
FD 21 0245' 
C3 0446' 


7D 
FO 21 024D' 
C3 0444' 


DD 21 9346" 
FD 21 0258' 
C3 O2E2' 


7A 
FD 21 0260' 
C3 0446" 


DD 21 0354" 
FD 21 0268" 
C3 O2F0' 


7B 
FD 21 0273" 
C3 9446" 
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NXTADS: 


NXADRS: 


M3ERR: 


MSERR1: 


MSERR3¢ 


MSERR4s 


MSERRS: 


H3ERRG: 


HSERR? + 


1-11 
Dy (HL) + GET MEMORY CONTENT 
D + COMPARE WITH PATTERN 
NZ »M3ERR 
+ COMPLEMENT PATTERN 
(HL) 9A + LOAD IN MEMORY 
Ds (HL) 
D + AND CHECK IMMEDIATELY 
NZ» H3ERR 


HL > INCREMENT MEMORY INDEX 
BC + REPEAT UNTIL ALL CHECKED 


AC 
E 
NZsCHKLPS 
A701H 
TY »NXADRS 
FLHLP 


* SET TO FLASH DRIVE A LED 


A > CLEAR CARRY FLAG 
E + UPDATE PATTERN 


NC »NXFATS 
Ar] 

ZA 

Zs H30K 
TSTMEN 


Arl 
if 
TrA 
TX sMLHDG 
TY sM3ERR1 
FNSG 


ArH 
IY sH3ERR3 
BZH 


ArL 
TY sH3ERR4 
BZH 


TXs CONTENT 
TY» M3ERRS 
PMSG 


AyD 
IY sM3ERRS 
B2H 


IXsPATTERN 
TY HERR? 
PHSGLI 


ArE 
TY» M3ERRE 
B2H 


CHECK IF ERROR IN UPPER MEMORY 
+ REPEAT FOREVER 


+ SET ERROR INDICATOR 


+ DISPLAY ERROR MESSAGE 


+ DISPLAY MEMORY ADDRESS 


+ DISPLAY MEMORY CONTENT 


+ DISPLAY TEST PATTERN 
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273" MSERR8; 
0273' DD 21 0360' LD TX»PROMPT 
O277' FD 21 O27E' LD TY sM3ERR? 
O27B' C3 OzE2" JF PMSG 
027E' N3ERR?: 
O27E' 3E 03 LD A»03H * SET TO FLASH BOTH DRIVES LED 
0280' FD 21 0284' LD TY sM3ER10 
O284' = 18 17 JR FLHLP 
0286" NSER10; 
0286' DB 0? IN As (KEYEST) s CHECK IF ANY KEY PRESS 
0288' £6 OF AND KEYEMK 
OZBA' 2B F2 JR ZsH3ERR? + REPEAT FLASHING LED 
O28C' DE 08 IN Ay (KEYEDA) i CLEAR KEY 
O2BE' 08 EX AF SAF’ 
O28F' FO 21 O1CD' LD TY »NXTADS + SET RETURN ADDRESS FOR FORWARD TEST 
0293' = B? OR A + CHECK TF GOING FORWARD OR BACKWARD 
0294" =. 28 04 JR ZyNXTFRD 
0296' FD 21 OZ0E' LD TY »NXTADS ¢ SET RETURN ADDRESS FOR BACKWARD TEST 
029A! NXTFWD: 
O29A' 08 EX AF 9 AF ' 
O29B' FD EY JP (TY) + GO TO NEXT LOCATION 
} 
; FLASH DRIVE A LED 
t 
0290" FLHLP; 
0290' 09 EXX ? USE ALTERNATE REGISTER SET 
O29E' = 47 LD HrA » SAVE LED INDICATION 
O29F' Ze 02 LD Ly? 
O2AL' FLHL10: 
D2AL' = 70 LD ArH + FLASH LED 
O2A2' D3 18 QUT (CMDREG) sA 
O2A4' FLHLP1: 
O2ZA4' 10 FE | DUNZ  FLHLPI 
O2Ab' 0D DEC C 
O2A7' 20 FE JR NZ»FLHLP1 
O2ZA9' = AF AOR A 
O2AA' 03 18 OUT (CHDREG) +A 
Q2ZAC' FLHLP2: 
OZAC' 10 FE DUNZ FLHLP2 
Q2ZAE' OD DEC C 
O2AF' 20 FB JR NZrFLHLP2 
O2B1' 2D , DEC L 
O2E2' 20 ED Jk NZ+FLHL10 
O2B4° D9 EXX 
Q2B3' = AF XOR A 
O2B6' FD E9 JF (TY) + RETURN 


MOVE CODE TO UPPER MEMORY 


0268" SOKt 

O2B8' 21 04A0' LD HL »sLAST + COMPUTE SIZE OF LOWER HALF OF CODE 
OZBB' 01 0000 LD BC rPROMST 

OZBE' AF XOR A 

O2BF' ED 42 SBC HLsBC 

O2C1" 44 LD oH 


Q202' 4D LD Cel 


MACRO-B0 3.44  09-Dec-81 PAGE 1-12 
0203" 24 0000 LD «HL PROMST ‘ MOVE LOHER HALF FIRST 
0206" 11 F000 LD «DE» PROMAD | 
es 0209" ED B0 LDIR 
O2CE' 21 FFFF LD HL» MEMEND + COMPUTE SIZE OF UPPER HALF OF CODE 
Q2CE' 23 INC —oHL 
O2CF' 01 F4A0 LD «BC »ROMSAD 
O202' AF XOR A 
0203' ED 42 SBC HLoBC 
Q205' 44 LD BH 
0206 4D LD Gk 
0207" 21 04a" LD HL LAST + MOVE UPPER HALF 
O2DA' 11 F4A0 LD «DE sROMSAD | 
020D' ED BO LDIR : MOVE BLOCK 
} 
JUMP TO RAM AREA TO START TESTING 
, 
O20F' 3 F4A0' JP OACTTST 
3 
PRINT OUT A HESSAGE 
f 
02E2" PHSG! 
O2E2' DD 7E 00 LD ADCIX) + GET CURSOR POSITION 
Q2E5' 3 04 QUT (VTCCUL)2A =} AND SET CURSOR 
O2E7' DD 23 INC OIX 
O2E9' DD 7E 00 LDA (IX) 
O2EC' 3.05 OUT © (YTCCU2) 2A 
O2EE' DD 23 INC OX 
om O2F0! PHSCLIi 
02F0' DD 7E 00 LD AS (IX) + GET CHARACTER FROM MESSAGE 
02F3' — B7 oR OA ; CHECK IF NO MORE 
O2F4' 28 10 UR Z+PHSGRT 
O2F6' 03 IC OUT (VTODAT)2A =}: DISPLAY ONTO PVTC 
O2F8'  3E AB LD ApWRTNC 
O2FA' D3 01 OUT © (VTCCHD) 2A 
O2FC' PHSGL?! 
O2FC' DB 04 IN AX(VTCSTA) «= }- GET STATUS REGISTER 
O2FE' ES 20 AND —_-VTCROY : CHECK IF READY 
0300' 28 FA JR Z+PHSGL2 : REPEAT IF NOT 
0302" DD 23 INC IX _—$- POINT TO NEXT CHARACTER 
0304" 18 EA JR OPMSGLI 
0306: PHSCRT! 
0306" FD £9 IY) + SIMULATED RETURN 
$ 
MESSAGES 
} 
0308" 0224 SIGNON! DH © UTCBEG +420 
030A" 50 49 45 44 DB "PIED PIPER'y0 
030E' 20 50 49 56 
0312" 45 52 00 
0315' —03FA 0000 BADSYS! DH —-»-VTCREG+480+410s0 
0319" 028A THHSG! DH —-VTCBEG+160#410 
O31B' 4D 45 6D 4F DE "Memory testes+'90 
ORF 72 79 20 74 
0323' 65 73 74 2E 
0327" 2E 2E 00 
032A" 030A MIHDG? DW —-VTCBEG+240+410 


MACRO-80 3.44  09-Dec-81 FAGE = 1-14 


DE ‘Memory error at address: ':0 


0320' 4D 45 4D aF 
Q330' 72 79 20 65 
f= 0334' 72 72 4F 72 
0338' 206 41 74 20 
O33C' 41 64 64 72 
0340' 65 73 73 3A 
0344' 20 00 
0344' 0354 CONTENT DW UTCBEG+320+410 
0348' 20 20 43 6F DE ' Content! sO 
O34C' 4E 74 45 4E 
0350' 74 3A 20 00 
0354' 20 20 50 41 PATTERNS DE ' Pattern! '0 
0358' 7474 65 72 
O35C' 4E 3A 20 00 | 
0340'  O3AA PROMPT! DH VICREG+400+410 


0362' 30 72 45 73 DB ‘Press any key to continue. ‘70 
0346' 73 20 41 6E 
O36A' 79 20 6B 45 
O34E' 79 20 74 OF 
0372' 20 43 OF dE 
0376' 74 69 66 75 
O37A' 45 ZE 20 00 


; 4, CHECK IF WARM BOOT 
t 
0376" SHOW! 
037E' ED 57 LD A ; SET DISPLAY REQUIRED BIT 
~ 0380' CB FF SET 79 
| 0382" ED 47 LD OTSA 
0384" NODISP! 
0384" 21 FF93' LD HL CHKSUN ; COMPUTE LENGTH OF BLOCK TO COMPARE 
0387' OE 10 LD Cr 10H 
0389' 06 FE LD = Br ITRVEC ; STARTING AFTER INTERRUPT VECTORS 
0388! AF ; XOR A 
038C' ED 42 SBC HLS BC 
O38E' 44 LD Bd 
O38F' 40 LD Gk 
0390' 26 FB LD =H TTRVEC ; COMPUTE START OFFSET OF ROK 
0392' 2E. 10 LD Ly LOH 
0394' 11 F4AO LD DE» ROMSAD 
0397' AF XR A 
0398’ ED 52 SBC HLyDE 
039A" 110480" LD DE» LAST-PRONST 
039D' 19 ADD HL DE | 
O39E' 14 FE LD sD TTRVEC } SET START OFFSET IN RAK 
03A0' 1 10 LD «Ev 10H 
0302! WATTL7! 
O3A2' 1A LD Ap (DE) 
03A3' BE CP CHL) 
O3A4' 20 10 UR NZ¥HAITL9 } PROCEED NORMAL DIAGNOTIC IF NOT SAME 
03A6' 23 INC HL 
O3A7' 13 INC © DE 
03A8' 0B DEC BL 
03A9' 78 LD ANE 
O3AA' Bl 1 
O3AB' 20 FS JR = NZ»WATTL? ; REPEAT UNTIL WHOLE BLOCK CHECKED 
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O3AD' = ED 3? LD AyI + SET INDICATOR FOR LATER 
O3AF’ CE F? SET sf : 
O3B1' ED 4? LD TA 
Q3B3' C3 0478" oP MOVE + THEN PROCEED DIRECTLY TO BOOT 

f 
; a+ MEMORY TEST (LOCATION 8000H TO FFFFH) 
OSE4' WALTLY: 
O3B6' 16 AS LD Es TSTPAT } INITIALIZE TEST PATTERN 
0388 ' NXPATLG | 
O3E8' 21 8000 LD HL »MiBEG + GET STARTING ADDRESS 
O3BB' 01 8000 LD BC rMiSIZE 3 SET UP LOOP COUNTER 
O3BE' LDOLFi: 
O3BE' 73 LD (HL) vE + LOAD PATTERN IN MEMORY 
QSEF' 23 TNC HL ? INCREMENT MEMORY INDEX 
03C0' OB DEC EC > REPEAT UNTIL ALL LOADED 
O3Ci' 78 LD Ark 3 
03C2' El OR C 
Q303' 20 F9 UR NZ»LDLFI 
0303" 21 8000 LD HL eMIBEG > COMPUTE END ADDRESS 
03C8' 41 8000 LD BC sM1SIZE 
O3CE" 09 ADD HL »BC 
O3CC' 26 DEC HL + GET STARTING ADDRESS FOR CHECKINF 
O3CD' 01 BO00 | LD BC MISIZE + SET UP LOOP COUNTER 
03D0' CHKLP 13 
O3D0' = 7E LO ArE + GET TEST PATTERN 
O3D1' 34 LD Ds (HL) > GET MEMORY CONTENT 
—0302' «BA CP p + COMPARE WITH PATTERN 

0303’ 20 14 JR NZsMIERR 
Q3D5'  2F CPL + COMPLEMENT PATTERN 
03D6' 77 LD (HL) A + LOAD IN MEMORY 
O3D7' 36 LD Dy (HL) 
03D8' BA CF D + AND CHECK IMMEDIATELY 
O309' 20 OE Jk NZyMIERR 
Q3DB' 2B DEC HL $ DECREMENT MEMORY INDEX 
O3DC° OB DEC EC s REPEAT UNTIL ALL CHECKED 
030D' 78 LD Are 
O3DE" Bi OR C 
Q3DF' 20 EF JR NZsCHELP1 
Q3E1' AF XOR A * CLEAR CARRY FLAG 
Q3E2' CE 23 SLA E + UPDATE PATTERN 
O3E4' 30 D2 JR NC »NXPATI 
Q3E6' C3 0476' JP MLOK 
Q3E9' MIERR: 
OSE?’ = =ED 97 LD ArI + GET ERROR INDICATOR 
O3EE' CE D7 SET ZA > SET UPPER HEMORY ERROR BIT 
QO3ED' ED 47 LD TrA + SAVE INDICATOR 
O3EF' CB 7F BIT +f > CHECK IF DISPLAY REQUIRED 
O3F1' 28 3D JR ZsMIERRB 
O3F3° DD 21 032A" LD TX sMLHDG 
Q3F7' FD 21 O3FE' LD TY sHIERRI 
O3FE' C3 OZE2' JP PHSG 
O3FE' MIERRI: 
O3FE' = 7 LD ArH + DISPLAY HEMORY ADDRESS 
OSFF' FD 21 0405" LD TYsMIERRS 


0403" 18 41 JR B2H 


0403 ' 
0405 ' 
0406' 
040A" 
0400" 
040C' 
0410" 
0414' 
0417" 
0417" 
0418! 
041C' 
O41E' 
OFT 
0422" 
0426" 
0429" 
0429" 
042A" 
042E' 
0430" 
0430' 
0434! 
0438" 
0436" 
0436" 
O43F' 
0443" 


0446' 
0446" 
0447! 
0449! 
044B' 
044D' 
O44F' 
0453" 
0455" 
0455" 
0456" 
0458" 
0450" 
045E' 
O45E' 
0440" 
0440' 
0442! 
0464! 
0466" 
0448" 
0448' 
046A" 
0460" 
046E' 


MACRO-80 3,44 


7D 
FD 21 040C' 
18 3A 


DD 21 0344' 
FD 21 0417" 
C3 O2E2! 


7A 
FO 21 O41E' 
18 28 


DD 21 0354! 
FD 21 0429" 
C3 92F0' 


7E 
FD 21 0430' 
18 1é 


DD 21 0315' 
FD 21 043B' 
C3 O2E2' 


DD 21 O7AF' 
FD 21 0967" 
C3 O2F0! 


47 

CR OF 

CE 3F 

CB SF 

CE 3F 

DD 21 0455' 
18 08 


78 

E& OF 

DD 21 O45E' 
18 02 


FD ES 


Cé 30 
FE 3A 
38 Q2 
Cé 0/7 


D3 iC 
SE AB 
D3 O1 


09-Dec-81 


MIERRS; 


MIERR4: 


MIERRS: 


MIERRS: 


MIERR?: 


MIERRG: 


MIERR?: 


B2ZHLSN: 


BZHRET; 


B2HEXE: 


DIGIT: 


FAGE 1-14 
LD AryL 
LD TY sHIERRA 
Jk BZH 


LD TX» CONTENT + DISPLAY MEMORY CONTENT 
LD TY sMIERRS 


JF PHSG 

LD A:D 

LD TY sHIERRS | 
JR BZH 


LD IX»PATTERN + DISPLAY TEST PATTERN 
LD TY sHIERR? 


JP PMSGLI 

LD AVE 

LD TY + MiERRB 
Jk BZH 


LD TXsBADSYS 
LO TY sHLERR? 
JP PHSG 


LD TXsFAILHSG-ROMSAD+LAST-FROMST 
LD TY s INDBAD-ROMSAD+LAST-PROMST 
JF FHSGLI 


CONVERT A BINARY NUMBER TO HEX 


LD BA * SAVE NUMBER FOR LATER 
SRL A + OBTAIN UPPER NIBBLE 

SRL A 

SRL A 

SRL A 

LD TXsB2HLSN 

JR B2HEXE + CONVERT UPPER NIBBLE 
LD Ark > RETRIEVE NUMBER 

AND OFH + OBTAIN LOWER NIBBLE 
LD TX» B2HRET 

JR E2HEXE 

JP (TY) + RETURN 

ADD Ay 30H + CONVERT TO ASCIT NUMBER 
CP SAH > CHECK IF OVER 7 

JR CrDIGIT 

ADD Ar? + CONVERT TO ALPHA 


OUT (VTODAT) 2A + DISPLAY DIGIT 
LD AyHRINC 
OUT (VICCHD) 9A 


O46E | 
0470" 
0472! 
0474! 


0476' 


0476" 
0476" 
0479! 
047C' 
0470" 
G47F' 
0480" 
0481! 
0484! 
0487" 
0489" 
0480" 
0480" 
0490! 
0491! 
0493! 
0494! 
D495! 
0498" 
0498 


049) ' 
0480" 


NACKO-80 3.44 


DE 01 
E4 20 
28 FA 
DD ES 


21 OFA0' 


21 FFFF 


23 


O1 F4A0 


21 04A0' 
11 F4A0 
ED BO 


C3 F497! 


C2 0071' 
ED 3/7 
CB SF 
CA FSAL' 


31 F000 
21 0214 
CD F892! 


09-Dec-81 


s 
f 


MiOK: 


$ 
ACTTST: 


PAGE 1-17 


IN Ar (VICSTA) 
AND VICRDY 

JR Zs E2HLP 
JF (IX) 


+ GET STATUS 
+ WAIT UNTIL NOT BUSY © 


+ RETURN 


6, TO MOVE PROGRAM FROM ROM TO UPPER RAM AREA 


LD HL LAST 
LD BC rPROMST 
XOR A 

SBC HL BC 

LD BH 

LD Cel 


LD HL »PROMST 
LD DE »PROMAD 


LD HL» MEMEND 


INC HL 

LD BC »ROMSAD 
XOR A 

SEC HL BC 

LD Es 

LO CrL 

LD HL LAST 


LD DE» ROMSAD 


s COMPUTE SIZE OF LOWER HALF OF CODE 


> MOVE LOWER HALF FIRST 


> COMPUTE SIZE OF UPPER HALF OF CODE 


+ MOVE UPPER HALF 


LDIR + MOVE BLOCK 


JUMP TO RAH AREA TO START EXECUTING 


JF AFMOVE 
ERU $ 


ORG ROMSAD+PROMST 


ACTIVATE TEST 


IN Ay (STAREG) 


LD Ar04DH 

LD (FROMST) 2A 
LD BrA 

LD Ay(PROMST) 
CP B 

JF NZ»CPUERR 

LD Arl 

BIT Jef 

JP Zs TESTH 


FLOPPY DISK TEST 


LD SP »sPROMAD 
LD HL» VICBEG+410 
CALL SETCUR 


+ DISABLE PROM 

¢ CHECK IF PROM DISABLED 
s WRITE PATTERN TO MEMORY 
+ SAVE PATTERN 

+ READ BACK 


> HALT IF PROM STILL ENABLED 


+ CHECK IF DISK TEST 
+ BRANCH IF MEMORY TEST IF NOT 


> SET UP STACK POINTER 
+ SYNCHRONIZE PVTC REGISTERS 


FABF 
FAC 
F4C4' 
F4Cé 
F408" 
FACA’ 
Fact’ 
FACE’ 
FADO 


FAD?" 
F404" 
F4D6" 
FAD?" 
FADA’ 
FADD 
F4EO! 
FSE1 
F4E4! 
Fae" 
FAE?" 
FAEB' 
FAEE' 
FEF’ 
FAR?" 
Far 4! 
F4F 6" 
_ FAF8! 
FAFB! 
F4FC' 
FAFF! 
F502" 
F504! 
F506" 
F507 
F309" 
Fo0C' 
FOE’ 
F510’ 
Faiz! 
Fol4' 
F514! 
Fog" 
F518! 
FOLA' 
F51D' 
FOlF’ 


Foez 


Foz23' 
Fo26' 
Fo2?' 
Fo2D' 
FOZF * 
Fodt' 
Fost! 
Foo4' 
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DD 21 F72E' 
CD F84E' 
DILP1; 

DE 0? 

Eé OF 

28 FA 

DE 08 

SE FB 

ED 47 


CA F9A?" 
CD FA&0' 
B7 

C2 F9A?' 
3E O01 
CD FCé2' 
1E OC 
3A FFDL' 
B3 

CD FDOS' 


CD FDO6' 
11 0028 
Eé 10 
29 03 
11 0050 
DUFY3; 
3A FFD’ 
CB OF 
28 04 
CB 23 
CB iz 
DVFY9: 
ED 33 FFOF’ 
DILP 2s 


B3 
CD FD06' 
11 0000 
ED 33 FFAL' 
3E 01 
OE 82 
DVFY1: 
32 FFAS" 
D3 12 


1-18 
TXsDTHSC + DISPLAY DISK TEST MESSAGE 
QUTMSC 
Ar (KEYBST> + GET KEYBOARD STATUS 
KEYBHK + CHECK IF KEY ENTERED 
Z+DTLF1 + WAIT UNTIL KEY ENTERED 
Ay (KEYBDA) + CLEAR BUFFER 
ArITRVEC } INITIALIZE INTERRUPT VECTOR 
TA 

+ SET FOR MODE THO 
OEDH: SEH 
AyDSKA > SELECT DRIVE A 
CHECK + CHECK IF DRIVE FUNCTIONING 
A + SKIP TEST IF ERROR 
Z:LOCAL 
SPEED + CHECK DRIVE SPEED 
A + SKIP TEST IF ERROR 
NZ»LOCAL 7 
AsDSKA + RESET TO SIDE 0 AND TRACK 0 
DSKSEL 
EsRSCMD+VERTFY+HDLOAD 
Ay (STEPS) 
E 
TYPE! 
A140 + SET TO SEEK CYLINDER 40 
(FODATA) :A 
Ey SKCMHD+VERTFY+HDLOAD 
Ay (STEPS) 
E 
TYPE1 + SEEK CYLINDER 40 
DEs 40 + DEFAULT MAXIMUM CYLINDER TO 40 
RNF + CHECK IF RECORD NOT FOUND 
NZ»sDVFY3 
DE» 80 + SET MAXIMUM CYLINDER TO 80 
Ar (SELBYT) + CHECK IF DOUBLE SIDED 
DSIDEsA 
ZsDVFY? + SAVE LIMIT IF NOT 
E $ MULTIPLY LIMIT BY 2 
D 
(MAXTRK? 2 DE + SAVE LIMIT FOR LATER 
A:DSKA + SELECT SIDE 0 OF DRIVE A 
DSKSEL 
EsRSCMD+VERIFY+HDLOAD + RESTORE DRIVE 
Ar (STEPS) 
E 
TYPEL 
DEs0 + START FROM TRACK 0 
(TRKNBR) 9 DE + AND SAVE FOR LATER 
Avi + START FROM SECTOR 1 
CrRDCHD + SET FOR READING SIDE 0 
(SECNBR) 94 
(FDSEC) 2A + SET UP SECTOR REGISTER 


FO36' 
F536! 
Pod?" 
FOgA' 
F53D' 
FOSE' 
F540" 
Fo43' 
F543' 
F546" 
Fo47' 
FO49' 
FO4B' 
Fo4F' 
Foo0' 
Food 
Foo4' 
Foo ' 
Fog! 
Fooc' 
a 
F561" 
F563' 
F566' 
F568" 
FO6A' 
F56C’ 


_ FOée’ 


F570' 
Fo72' 
Fa72! 
Fo74' 
F576" 
F578" 
Fo78" 
FO7B' 
FO7C' 
F57D' 
FO/F' 
FO/F' 
FO8t ' 
F584 


FO8S'. 


F588" 
FO8B" 
FOeD' 
F58D' 
F570" 
FOPt' 
FO93' 
Fo9S 


FO9?' 
FO97' 


MACRO-80 3.44 


09-Dec-81 


DVFY2: 
79 
21 8000 
CD FC78° 
B7 
28 93 
CD F597" 
DVFY4; 
3A FFAS! 
3C 


FE 09 


«20 ES 


ED SE FFAL' 
13 


2A FFOF' 


28 (0 
ED 33 FFAL' 
3A FFD’ 
CB oF 
28 iC 
3A FFE2' 
CE 3/7 
20 08 
04 O1 
OE 8A 
CB D7 
18 06 
DVFY6: 
04 00 
OE 82 
CE 97 
DVFY?7¢ 
CD FCé2' 


DVFYS: 


CD FD06' 
3A FFAL' 
Cé 32 
DVFY8: 
CD FD60" 


be ol ins ol od 


$ 
VFYERR: 


D3 iC 


PAGE 1-19 

LD ArC 

LD HL» VF YBUF 
CALL  FORWS 

OR A 

JR ZyDVFY4 
CALL VFYERR 

LD Ay (SECNBR) 
INC A 

CP 9 


Jk NZsDVFY1 
LD DE» (TRENBR) 


INC DE 

LD HL» (MAXTRE} 
XOR A 

SEC HL +DE 

JR ZyDTLP2 


. LD (TRENBR) »DE 


LD Ar (SELBYT} 
DSIDEsA 
JR Z9DVFYS 
LD As (TOREG) 


BIT SIDE1:A 
JR NZ9DVFYS 
LD Eri 

LD CeRDCHD+8 
SET SIDELsA 
JR DVFY7 

LD B+0 

LD CrRDCHD 
RES SIDEL:A 
CALL DSKSEL 
LD Are 

OR A 


JR NZrDVFY1 


LD Ey SICMD+HDLOAD 
LD Ay (STEPS) 


OR E 

CALL TYPEI 

LD Ar (TRENBR) 
ADD Ara0 

CALL DELAY 

DEC A 

JR NZ:DVFY8 
LO Arl 

JR DVFY1 


HANDLE DISK TEST ERROR 


OUT (VTODAT) 94 


; 


a 
$ 


ae Oo 


> 


> & 


Nee 


Ph he 


eT ee 


Sebo Gabe Go 


3 


READ IN SECTOR 


¢ CHECK IF ERROR 


ADVANCE TO NEXT SECTOR 


4 CHECK IF READ IN EIGHT SECTORS ALREADY 


ADVANCE TO NEXT TRACK 


GET TRACK LIMIT 


CHECK IF LIMIT REACH 
REPEAT TEST IF SO 


GET NUMBER OF SIDES 
CHECK IF ONE SIDE 


GET CURRENT SELECT BYTE 
CHECK CURRENT SIDE 


SET SIDE 1 


SET SIDE 0 


SELECT PROPER SIDE 
CHECK IF STEP REQUIRED 


SET UP STEP COMMAND 


GET TRACK NUMBER 
MINIMUM DELAY IS 50 MSED 


RESET TO SECTOR ONE 
CONTINUE TEST 


> DISPLAY ERROR CODE 


Foo?! 
FOPE' 
FO9D' 
FSA0' 


FOAL' 
FOAL’ 
FoAZ' 
FAS ' 
FSA4' 
FOAS | 
FoAG' 
FOA?' 
FOAC' 
FOAC' 
FOAD' 
FOAE’ 
FOAF' 
FORO! 
FOB1' 
FOES" 
FOBS' 
FORS' 
FOBC' 
FOEC' 
FOBF' 
Fate! 
Fot2' 
FoC3' 
Foca! 
Foca 
FOC7' 
FSC8' 
FoCg' 
FOCA' 
FOCE’ 
FOCD' 
FOCD' 
FOCE' 
FOCF' 
FODO' 
FSD1' 
FoD3' 
FODS' 
Fop?' 
FSOC' 
FSDC' 
FODD' 
FODF 
POEL" 
FOE? ' 
FOE4' 
FOES’ 
FOE?" 
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SE AE 

D3 O1 

CD F8C2' 

C9 
; 
; 


i 
TESTHE 


NXPAT4: 
21 0000 


LDLP4: 


FD 21 FSBC' 
C3 F29D' 
CHECK4: 
21 EFFF 
O1 F000 
CHKLP4; 


NXTAD4: 


FD 21 FdC' 
C3 F29D' 
NXADR4: 


NXPAT&: 


PAGE 


LD 
OUT 
CALL 
RET 


ArHRINC 
(VICCHD) oA 
WAIT 


MEMORY TEST 


AF AF’ 
A 

AF s AF * 
ErOiH 


HL M2BEG 
BCs H25IZE 


(HL) sE 


+ SET FOR FORWARD DIRECTION 


+ INITIALIZE TEST PATTERN 


+ GET STARTING ADDRESS 
> SET UP LOOP COUNTER 


> LOAD PATTERN IN MEMORY 


} 
HL § INCREMENT MEMORY INDEX 
BC ) REPEAT UNTIL ALL LOADED 


Arb 

C 
NZ*LDLP4 
ArQ2H 
TY sCHECK4 


> SET TO FLASH DRIVE A LED 
> SET RETURN ADDRESS 


FLHLP+PROMAD-PROMST 


HL» M4BEG + COMPUTE END ADDRESS 
BCs M251ZE > SET UP LOOP COUNTER 
ArE + GET TEST PATTERN 

Dy (HL) + GET NEMORY CONTENT 
D + COMPARE WITH PATTERN 
NZ>M4ERR 


+ COMPLEMENT PATTERN 


(HL) 5A + LOAD IN MERORY 
Dy (HL) 

D ’ AND CHECK IMMEDIATELY 
NZ H4ERR 


HL * DECREMENT MEMORY INDEX 
BC ¢ REPEAT UNTIL ALL CHECKED 


ArC 

B 

NZ sCHKLF4 

Ar02H + SET TO FLASH DRIVE A LED 
TY sNXADR4 

FLHLF+PROMAD-FROMST 

A + CLEAR CARRY FLAG 

E + UPDATE PATTERN 

NC »NXPAT4 

AF + AF' 

Arl + SET FOR BACKKARD DIRECTION 
AF y AF! 

E»O1H + INITIALIZE TEST PATTERN 


FOE?’ 
FOEA' 
FOED' 
FOED' 
FOEE' 
FOEF ' 
FOFO' 
FOF1' 
OFZ! 


FSF4' 


FOFS' 
FOFA’ 
FOFD' 
FOFD' 
F600! 
F403" 
F403" 
F404' 
F603" 
F406" 
F408' 
F409! 
F60A' 
F40B' 
F40C' 
FAQE' 
F60E" 
F6OF’ 
F610! 
Féii' 
F612! 
F614! 
F614" 
FA1A' 
Fé1D' 
F41D' 
F61E' 
Fé20' 
Féz2' 
Fé2o' 
F625" 
Fé27' 
F629! 
F626" 
F62F' 
F433" 
F436" 
F436" 
F437" 
F43B" 
F43E' 
F43E' 
F6aF' 
F643" 
F646! 
F646! 
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Zi EFFF 
O1 F000 
LDLP6: 


C3 F29D' 

CHECKS: 
21 0000 
01 FO00 

CHKLP4; 


NXTADA; 


FD 21 F41D' 
C3 F29D" 

NXADRG: 
AF 
CB 23 
30 C5 
C3 FOAL’ 

M4ERR: 
ED 3/7 
CB D7 
ED 4/7 
DD 21 F3ZzA' 
FD 21 F636' 
C3 F2E2" 

M4ERR1: 
iC 
FD 21 Fé3e' 
C3 F446" 

N4ERR3: 
7D 
FD 21 Fé644' 
C3 F446" 
M4ERR4: 
DD 21 0344' 


1-21 

HL» M4BEG + GET STARTING ADDRESS 
BC yM2ST7E > SET UP LOOP COUNTER 
(HL) rE + LOAD PATTERN IN MEMORY 


HL + DECREMENT MEMORY INDEX 
BC + REPEAT UNTIL ALL LOADED 
ArB 


C 

NZ»LDLF4 

As02H + SET TO FLASH DRIVE B LED 
TY CHECKS * SET RETURN ADDRESS 


FLHLP+PROMAD-PRONST 


HL» HZBEG + COMPUTE END ADDRESS 
BC» M2SIZE + SET UP LOOP COUNTER 
ArE > GET TEST PATTERN 

Dy (HL) + GET MEMORY CONTENT 
D + COMPARE WITH PATTERN 

NZ» H4ERR 


» COMPLEMENT PATTERN 


(HL) eA + LOAD IN MEMORY 
D> (HL?) 

D + AND CHECK IMMEDIATELY 
NZ»M4ERR 


HL + INCREMENT MEMORY INDEX 
BC + REPEAT UNTIL ALL CHECKED 
Arl 


B 

NZrCHKLP6 

Ar02H + SET TO FLASH DRIVE B LED 
TY »NXADR6 

FLHLP+PROMAD-FROMST 

A s CLEAR CARRY FLAG 

E + UPDATE PATTERN 

NC» NXPAT4 

TESTM + REPEAT UNTIL RESET 
Arl + SET ERROR INDICATOR 
ZrA 

TrA 

IXsMIHDG+PROMAD-PROMST 

TY sH4ERRI 


PNSG+PROMAD-PROMST 


AsH + DISPLAY MEMORY ADDRESS 
TY sM4ERR3 

BZH+PROHAD-FROMST 

AsL 

IY: M4ERR4 


BZH+PROMAD-PROMST 


TX: CONTENT ¢ DISPLAY MEMORY CONTENT 


FAA’ 
F64E’ 
Fal! 
Féol' 
Féo2' 
Fé6' 
FAS?! 
Féo?' 
FéSD' 
Féél' 
F464! 
F664! 
F463" 
F469" 
Fé6C' 
FOC’ 
Fé70' 
F674! 
F477! 
Fa?7" 
F6/9" 
F47D' 
FARO" 
FARO" 
F482" 
F484" 
F4B6' 
Fé88' 
F489 ' 
Féed' 
Fé8E° 
FASO! 
F694! 
F494" 
FA9D' 


FA97' 
Fé97' 
Fé?! 
FASB" 
FOE’ 
FOF 
FéAz' 
FéA3' 
FéAG' 
FéAs' 
FéAA’ 
FOAD' 
FéAD' 
FOAF* 
FOAF 
FéB2' 
F&BS' 
FéBS' 
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FD 21 Féol' 
C3 F2ZE2" 


7A 
FD 21 F465?! 
C3 F446! 


DD 21 9354! 
FD 21 F464! 
C3 FZFO' 


7B 
FD 21 FééC' 
C3 F446" 


DB 21 0340' 
FD Zi Fé77' 
C3 F2E2' 


3E 93 
FD 21 Féed' 


C3 F290" 


FD 21 FéOE’ 
E7 

20 04 

FO 21 FSCO’ 


08 
FD EF 


Be - 

C2 0071' 
ED 57 
CE 77 
C? FSC?! 


LE AS 


21 0000 
01 FO00 


73 
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NAERRS! 
NAERRG! 
NAERR7! 
NAERRB! 
NAERR?! 


M4ER10; 


NXTBRD; 


a 
t 
a 
$ 


3 
AFMOVE: 


MTEST2: 


NXPAT2¢ 


-LDLP2! 


Pot Pas 


1-27 


TY sM4ERRS 
PHSG+PROMAD-PROHST 


AeD 
TY »M4ERRS : 
B2H+PROMAD-PROMST 


IXsPATTERN > DISPLAY TEST PATTERN 
TY sM4ERR7 
PMSGL1+PROMAD-PROMST 

ArE 

TY sM4ERRS 

B2H+FROMAD-PROMST 

IXsFPROMPT 

TY + M4ERRS 

PMSC+PROMAD-PROMST 

A:Q3H + SET TO FLASH BOTH DRIVES LED 
TY sM4ER1G 


FLHLP+PROMAD-PROMST 


Ar (KEYEST) ; GET KEYBOARD STATUS 

KEYBMK 

ZsM4ERRY + REPEAT FLASHING LED 

fis (KEYBDA) + CLEAR KEY 

AF SAF! 

TY sNXTADS + SET RETURN ADDRESS FOR BACKWARD TEST 
A + CHECK IF GOING FORWARD OR BACKWARD 

NZ NXTBHD 

TY sNXTAD4 + SET RETURN ADDRESS FOR FORWARD TEST 
AF sAF' 

(TY) + GO TO NEXT LOCATION 


MEMORY TEST (LOCATION OO00H TQ F800H) 


Ar (STAREG) + DISABLE ROM 

ArQ4DH + CHECK IF PROM DISABLED 
(PROMST) 2A + WRITE FATTERN TO MEMORY 
BrA + SAVE PATTERN 

Ay (PROMST) + READ BACK 

E 

NZ» CFUERR ; HALT IF FROM STILL ENABLED 
ArI > CHECK IF WARM BOOT 

bvA 

NZyEDOT + SKIP TO BOOT 

Ey TSTPAT > INITIALIZE TEST PATTERN 
HL »M2Z2BEG + GET STARTING ADDRESS 
BC» M2SIZE 3 SET UP LOOP COUNTER 


(HL) sE + LOAD PATTERN IN MEHORY 


FéBS' 
F&B7' 
FéES" 
F4B9' 
F4BA' 
FBC 
FOBF' 
FéC2' 
F4C3' 
F4C4' 
F6t7' 
F4C7' 
F6C8" 
FAC ' 
F4CA' 
Face’ 
F6CD' 
FACE ' 
F4CF’ 
F6D0' 
F6D2' 
F4D3' 
F604! 
FéDS' 
F4D4' 
F4D8' 
F4D9' 
FéDB' 
FADD' 
FADF' 
FADF' 
F6E1 
F6E3! 
F6ES' 
F6E7' 
F6EA' 
F4EE' 
FAF2' 
FAFS' 
FOFO' 
FOFé' 
FAFA’ 
FOFD' 
FOFD' 
FFE! 
F702' 
F705 ' 
F7Q3' 
F709" 
F70D' 
F710' 
F710' 
F711" 
F715' 
F718" 
F718! 
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DD 21 F32A' 
FD 21 FéFS' 
C3 F2F0' 


7C 
FD 21 FOFD' 
C3 F446" 


7 
FD 21 F705" 
C3 F444" 


DD 21 0346' 
FD 21 F710' 
C3 F2E2" 


7A 
FD 21 F718' 
C3 F496" 


DD 21 0354' 
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CHRLP2; 


HZERR: 


MZERR13 


MZERR3; 


MZERR4; 


NZERR6: 


1-23 


HL + INCREMENT MEMORY INDEX 

BC + REPEAT UNTIL ALL LOADED ~ 
ArB 

C 
NZsLDLF? 
HL »M2BEG 
BCsM2S5I1ZE 
HL BC . 
HL + GET STARTING ADDRESS FOR CHECKINF 


+ COMPUTE END ADDRESS 


BC eM2SIZE + SET UP LOOP COUNTER 
ArE 

Dy (HL) + GET MEMORY CONTENT 
D + COMPARE WITH PATTERN 
NZ»M2ERR 


+ COMPLEMENT PATTERN 


(HL) 9A + LOAD IN MEMORY 
Dy (HL) | 

D + AND CHECK IMMEDIATELY 
NZ MZERR 


HL * DECREMENT MEMORY INDEX 
BC * REPEAT UNTIL ALL CHECKED 


Arb 

C 

NZ sCHKLF2 

A + CLEAR CARRY FLAG 

E + UPDATE PATTERN 

NC »NXPATZ 

420K 

AsI + GET ERROR INDICATOR 

Zh + SET UPPER MEMORY ERROR BIT 
TrA + SAVE INDICATOR 

7 yf + CHECK IF DISPLAY REQUIRED 
ZrHDTEST + BRANCH IF NOT 


TXsH1HDG+PROMAD-PROMST + POINT TO MEMORY BAD MESSAGE 
TY sMZERR1 
PMSGL1+PROMAD-PROMST 


ArH + DISPLAY MEMORY ADDRESS 
TY sHZERR3 

B2H+FROMAD-PROMST 

ArL 

TY sMZERR4 


BZH+PROMAD-PROMST 


TX CONTENT + DISPLAY MEMORY CONTENT 
TY sMZERRS 

PMSG+PROMAD-PROMST 

ArD 

TY sHZERRS 


B2H+PROMAD-PROMST 


IXsPATTERN + DISPLAY TEST PATTERN 


F71C' 
F720! 
F723' 
F723! 
F724! 
F728" 
F726 


F72B' 
F72B" 


F72E' 
F732" 
F736! 
F73A' 
F/3E" 
F7 OF 
F743! 
F747! 
F7 4B" 
F74F 
F733" 
F737 ' 
F756! 
F7OF' 
F763" 
F764! 
F768" 
F74C' 
F770" 
F774! 
F778" 
F77C' 
F77E' 
F782! 
F7B6' 
F78A' 
F7BE' 
F792" 
F796" 
F79A' 
F79E' 
F7A2' 
F7AG' 
F7A7' 
F7AB' 
F7AF' 
F7B3' 
F7B7' 
F7BB 
F7BF' 
F7C3' 
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FD 21 F723! 
C3 F2FQ' 


7B 
FO 21 F72B' 
C3 F446" 


C3 F8c?' 


OD OA OA 44 
69 73 6B 20 
74 85 73 74 
ZE 20 20 20 
20 

OD OA 49 6E 
73 65 72 74 
20 66 OF 72 
4D 61 74 74 


74 OF 20 73 
74 61 72 74 
ZE 00 

OD OA OA OA 
OA OA OA OA 
49 6E 73 45 
72 74 2073 
79 73 74 4 
6D 20 64 69 
73 6B 45 74 
74°65 20 69 
dE 20 44 72 


OD OA OA OA 
OA OA OA OA 
49 71 75 69 
70 4D 65 6€ 
74 20 44 41 
69 é€ 75 72 
65 20 2D 20 
wz 65 74 75 
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1-24 

LD TY sMZERR7 

JP PMSGL1+PROMAD-PROMST 
MZERR73 | 

LD ArE 

LD IY sHDTEST 

JF BZ2H+PROMAD-PROMST 
M20K3 
; 
; HARD DISK CONTROLLER TEST 
; 
HDTEST 

JP BOOT 
; 
; MESSAGES 


t 
DIMSG; DB 


DE 


DE 


SYSOK: DB 


DE 


SYSBAD: DE 


FAILMSG + DE 


CReLFsLFs'Disk test, 


CReLFs'Insert formatted diskette in drive.’ 


CRrLFs'Press any key to start.'10 


CReLFsLF LF LF eLF LF LF 


‘Insert system diskette in Drive+'s0 


CReLFsLFsLFsLF LF oLFeLF 


‘Equipment Failure - Return for Servicing’ sO 
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F707" 72 &E 20 66 
FAB’ AF 72 20 53 
F7CF' «45 72 76 69 
F7D3' 43 49 4E 47 


F7D7' 00 
F7D8' OD OA 33 79 BOOTERR? DE CReLFs System error - refer to user manval.'s0 
F7DC' 73 74 45 4D 
F7EQ' «20 45 72 72 
F7E4' &F 72 20 2D 
F7EB' 20 72 45 464 
F7EC' 65 72 20 74 
F7FO' 4F 20 75 73 
F7F4' 65 72 20 4D 
F7F8' 41 6E 75 él 
F7FC' aC 2E 00 
F7FF' 90 OA OA 49 ERRITR: DB CReLFeLFy Interrupt pending - ‘10 
F803' = 6E 74 45 72 
FB07' 72 75 70 74 
FROR’ 20 70 45 4€ 
FOOF' 64 69 4E 47 
F613' 20 20 20 00 
F817" =F 827' TTRTABS DX ITRO 
FB19' = FB 2B" DH ITRi 
F8iB' F831! | DY ITRZ 
F8iD' F83é6' DH ITR3 
FOIF' FR3F' DW ITR4 
F821‘ F845! DH ITRS 
F823' F848! DW ITR4 
F825' F84B' DW ITR? 
F82Z7' = 44 G2 31 00 ITRO; = ODE ‘DRQ' 10 
F82B' 49 46 54 52 TTR1i: = DE ‘INTRG' 10 
F8ZF' Si 00 
F831' «30 56 54 43 ITR2: OB 'PYTC' sO 
F835’ = 00) 
F836' 46 65 79 &2 ITR3$ DB ‘Keyboard! 
FBSA' = AF O61 72 64 
F83E' 00 © 
FO3F' = S4 49 4D 45 ITR4: =DB ‘Timer ' 10 
F843' 72 00 
FB4S' 4A 38 00 TTR: =DE "JB" 20 
F848' 4A 37 00 ITR6: ODE 'U7' +0 
FE4B' = 4A 31 00 TTR7: DB ‘J1's0 
$ 
; QUTHSG FRINT OUT A HESSAGE 
? 
} IN: TX - ADDRESS OF STRING 
$ 
FO4E ' QUTMSG: 
FR4E' DD 7E 00 LD As (IX) + GET CHARACTER 
F851' =B? OR A + CHECK IF NO MORE 
F8S2' 28 07 JR Z:0MSGRT 
F854' CD Fasc' CALL DATAQUT 
F857’ DD 23 INC IX + POINT TO NEXT CHARACTER 
F8S?' 18 F3 : JR QUTHSG 
FBSB' ONSGRT: 


FBSB' C9 RET 
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DATA OUTPUT (80 X 24) 


; 
; 
; IN: A - CHARACTER 
t 
Fest! DATAOUT: 
FRSC’ FE 20 CP BLANK + CHECK IF CONTROL CHARACTER 
FEE’ 38 05 JR C»CNTLCH + YES 
F860' CD F874" CALL § CHAROUT + SEND CHARACTER 
F843’ 18 OE JR DATORT > RETURN 
F845' CNTLCH: 
F845' FE OA CP LF + CHECK IF LINEFEED 
F847’ 920 05 JR NZ» CHKCR + NOr GO TO CHECK FOR CARRIAGE RETURN 
F869’ CD F89E' CALL LFEED + PROCESS LINEFEED 
FB6C' 18 05 JR DATORT + RETURN 
FR6E' CHKCR? 
F86E' FE OD CP Ck > CHECK IF CARRIAGE RETURN 
F870' CC FBAA' CALL ZrCARRTN + PROCESS CARRIGAE RETURN 
F873" DATORT: 
F873' C9 RET + RETURN 
$ 
$ CHARACTER OUTPUT TO SCREEN 
$ 
j A = CHARACTER 
? 
FQ74' CHAROUT: 
F874' FG FUSH = AF 
pi F875' =«ES PUSH = HL 
- F876' 03 1C OUT (YTODAT) A + SEND CHARACTER 
F878' 3E AR LO ArHRINC + WRITE CHARACTER & INCREMENT CURSOR 
Fa7A' D3 Ol OUT (VICCMD) A 
F87C' CD F8C2' CALL WAIT 
F87F' 3A FFD4' LD Ay (COLNO) + UPDATE COLUMN NUMBER 
F882’ 3C INC A 
F883' 32 FFD4' LD (COLNO) A 
F886 ' CHORET$ 
F886' El POP HL 
FO87' Fil POP AF 
F888' C9 RET + RETURN 
ft 
} GET CURRENT CURSOR POSITION 
$ 
} QUT? HL - CURSOR POSITION 
t 
F889’ GETCUR: 
F889' =F PUSH AF + SAVE REGISTERS 
F88A' DB 04 Ik Ar(VICCUL) + GET CURSOR ADDRESS 
FEBC' 4F LD LA 
F88D' DB 05 IN Ay(VTCCUZ) 
F8BF' 47 LD HrA 
F890' =F POP AF : RETRIEVE REGISTERS 
F89t' = C9 RET 


SET CURSOR POSITION 


IN: HL - CURSOR POSITION 


FB92' 
FB92' 
FB93' 
F894! 
FB96' 
F897" 
FBO! 
FBSA’ 


F89B' 
FB5B' 
FE9C' 
FB9D" 
FB9D' 
FBAQ' 
FBAS' 
FBA4' 
FBA7" 
FBA7' 
FBAS' 
FBA9' 


FBAA' 
FBAA' 
FBAB' 
FRAC’ 
FBAD' 
FBRO' 
FBES' 
FBB4 ' 
FBS ' 
FBBS' 
FBR" 
FBBB' 
FBBE" 
FBBF 
F8CO' 
FBC1' 


F8C2' 
F8C2' 
FeC4' 
FBC6' 
F8C8' 


FBC?! 
F8C?' 
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DS 
ES 


CD F889" 
11 0050 
19 

CD F892" 


FS 
DS 
ES 
CD FB8?' 
3A FFD4' 


31 0070 
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SETCUR: 


LFEED; 


LFEEDI: 


LFRETs 


CARRTNS 


SS wr ee we 


BOOT: 


PAGE 


a 
$ 
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AF + SAVE REGISTERS 

ArL 

(YTCCUL) sA 

ArH 

(YTCCUZ) 9A 

AF + RETRIEVE REGISTERS 


+ LINE FEED 
' 


DE 
HL 


GETCUR + GET CURRENT CURSOR POSITION 
DE» MAXCOL 

HL DE 

SETCUR + UPDATE CURSOR POSITION 


HL 
DE 
+ RETURN 


$ 
+ CARRIAGE RETURN 


PUSH AF 

PUSH §=6iDE 

PUSH = HL 

CALL GETCUR + GET CURRENT CURSOR POSITION 
LD As(COLNO) 

LO ErA 

SUE A 

LD (COLNO) 2A 

Lp Def 

SEC HL DE : 

CALL SETCUR + SET NEW CURSOR POSITION 
POF HL 

POP DE 

POP AF 

RET + RETURN 

WAIT WAIT FOR FVTC TO BE READY 

IN Ar(VTCSTA) + GET STATUS REGISTER 
AND VICRBY + CHECK IF READY 

JR Z:WAIT + REPEAT IF NOT 

RET 

CP/M BOOT 

LD SP sBUF-3 : SET UP STACK POINTER 


F8CC' 
FSCF ' 
F8D2' 
FBD4' 
F8D4' 


F8D8' 
F8DA' 
F8DC’ 
F8DE' 
FRE2' 
FOES 
FRE?" 
FRE?" 
FREA' 
FREC' 
FOFO! 
FOF2' 
FOFS' 
FOF’ 
FOF?! 
FSFE" 
FRFE' 
FOFE" 
F900" 


F902" 
F902" 
F904! 
F906 ' 
F908' 
F9OA' 
F9OB' 
F90D' 
F9QE' 
F910! 
F912" 
F913" 
F915! 
F917! 
F918° 
FOLA' 
FOIA’ 
FIC’ 
FOIE! 
FOE 
F922 
F924! 
F926! 
F927" 
F929" 
F92D" 
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21 921A 
CD F8F2" 
DE 18 
CE 47 
20 2A 


ED 3? 
CE 7F 
28 20 
DD 21 F7FF' 


04 00 


DD El 
CD F84E" 


3E 20 
ED 47 


ED 37 


28 04 
DD 21 F7A7' 
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~ ITRERR:! 


0014: 


DCERR: 


TSTDON: 


PHSG10; 


1-28 


HL sVICBEG+410 
SETCUR 

Ay (STAREG) 
OrA 

NZ»BOOT4 


INTERRUPT LINE ERROR 


Ar] 

7h 

Ly ITRERR 
IXrERRITR 
OUTMSG 

Ay (STAREG) 
OEH 

CrA 

B:Q 
IXrITRTAB 
IXsBC 
Cr(IX) 

By (TX+1} 
BC 

IX 

OUTHSG 


ArZ0H 
TA 


TEST DISK CONTROLLER 


Ar TSTPAT 
(FDTRK) 2A 
(FDSEC) 2A 
(FODATA) 2A 
CA 

Ay (FDTRK) 
C 
NZ»DCERR 
Ay (FDSEC) 
6 
NZ»DCERR 
Ay (FDDATA) 
C 

7+ TSTDON 


AridH 
TrA 


IX*SY50K 
AvI 
3FH 


$ 


4 


+ 


he fe > > 


em Sr 8h 


ee Nh Nee 


ae fhe 


See Sh 


a 


# 


s 
+ 
a 
$ 


¢ SYNCHRONIZE PVTC 


GET STATUS 
CHECK IF ANY INTERRUPT PENDING 


CHECK IF DISPLAY REQUIRED 


SKIP IF NOT 
DISPLAY INTERRUPT LINE ERROR MESSAGE 


GET STATUS 
GET INTERRUPT STATUS 
SET UP BIAS 


POINT TO ERROR MESSAGE TABLE 


POINT TO PROPER ERROR MESSAGE 
GET MESSAGE ADDRESS 


GET TEST PATTERN 
SEND TO TRACK REGISTER 


SAVE FOR COMPARTSON 
READ BACK FOR COMPARISON 


SET DISK CONTROLLER ERROR 


POINT TO SYSTEM OK MESSAGE 
GET ERROR INDICATOR 


A * CHECK IF ANY ERROR 


Z+PHS610 
TX»SYSBAD 


a 
$ 


POINT TO SYSTEM BAD MESSAGE 


F92D' 
F930" 
F932 ' 
F934! 
F935 


F938! 
F938" 
F93B! 
F93B' 
F93b' 
F9SF’ 
FO4i' 
F943" 
F943! 
FOqS 
F947" 
FR49! 
F94B 
F94B' 
F94D' 
FO4E" 
FO4F' 
F950! 
FRoZ' 
F954! 
F957! 
FPP! 
FROB! 


FRSE' 
F940! 
F961" 
F962" 
F964" 
F966" 
F969" 
F96D' 
FOOF’ 
F9OF 
F972! 
F973" 
F979" 
F979" 
F97A' 
F97B' 
F97D' 
F97E' 
F980! 
F982" 
F984" 
F984! 
F986 
F989" 
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CD F84E° 


B7 

C2 F9R7' 
; 
} 


$ 
BOOTO: 
11 0160 
BEEPLO; 
3E 54 
F4 80 
D3 1D 
06 78 
BEEPLI: 
10 FE 


BEEPL2: 


SE FE 


11 0000 
ED 53 FFAG' 
SE 32 
TIMLP: 
CD FDé0' 
3D 
20 FA 
ED SB FFAG’ 


REBOOT; 
3E O1 
CD FAAS’ 

BOOTL: 


1-29 


QUTHSG 
AyI 

3FH 

A 

NZ» INDBAD 


> GET ERROR INDICATOR 


> INDICATOR ERROR CONDITION 


ACTIVATE BELL TO SIGNAL ALL OK 


LD 


DEs140H + SET LOOP LIMIT 
ArVTMODE + GET DEFAULT MODE REGISTER VALUE 
BEEF + ACTIVATE BEEP 
(VTICHOD) +A 

B1120 + DELAY LOOP 

BEEPL1 

AsVTHODE + RESET BEEP 

(VTCHOD) A 

Bs120 + DELAY LOOP 

BEEPL? 

DE + REPEAT LOOP 

ArD 

E 

NZ» BEEPLO 

ArVTMODE + SAVE MODE REGISTER FOR FUTURE 
(MODREG) 9A 

ArITRVEC } INITIALIZE INTERRUPT VECTOR 
TsA + HIGH BYTE 

(ITRREG) A 

OEDH? SEH 

A 

TIMER A + ENABLE TIMER 
(CHDREG) 2A 

DE +0 + INITIALIZE TIMER COUNT 
(TIMCNT) eDE 

Ara0 + DELAY FOR 30 MSEC 
DELAY 

A 

NZ+TIMLP 

DE» (TIMCNT) > GET TIMER COUNT 

AsD + SHOULD BE NON ZERO 

E 

NZrREEOOT 


> DISABLE FURTHER INTERRUPT 


_ Ish 


A:08H > SET ERROR BIT 
INDBAD 

ArDSKA > SELECT DRIVE A 
CHECK 


F989! 
FIBA’ 
F98C' 
FOBF' 
F990! 
F992 
F992 
F994! 
F996! 
F998 
F998" 
F9DA' 
F99D' 
FAQ! 
F9AZ' 
FOAG' 
F9A7? 
F9A7' 
FOA?' 
FOAC' 
FORO! 
F9BS' 
FOBS' 
FOB?" 
FOB?" 
FOB?" 
F9BC’ 
FOBE' 
F9CO' 
F9C3' 
FSCS" 
FOC?" 
F9CA’ 
F9CC’ 
F9CE' 
F9DL' 
F9D3" 
F9DS' 
F9D8' 
FODA' 
F9DC' 
FODF 
F9EL' 
PIEI 
FOES" 


FOES! 
F9EB' 
FOE?! 
F9EB' 
FOEE* 
FOEE' 
FOFO' 
FOF 1" 


E7 
28 1B 
CD FAdO' 


SE 00 

CD FDO4' 

DD 21 F708" 
CD F84E' 

SE 10 

ED 47 


ED 57 
11 0200 
CE 47 
20 28 
11 0301 
CR 4F 
20 21 
11 0300 
CB 57 
20 1A 
11 0303 
CB OF 
20 13 
11 0102 
CB 67 
20 OC 
11 0302 
Ch OF 
20 05 
11 0000 
18 00 


7A 
D3 18 
01 0000 
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BQOT2: 


BOOT3: 


LOCAL: 


_ INDBAD: 


a 
$ 
a 
$ 
Fy 
t 


FLASH: 


FLASH; 


1-30 


A 
ZyLOCAL 
SPEED 

A 
NZ»LOCAL 


Avi 
(FDSEC) sA 
ByRETRY 


A»RDCND 
HL » BUF 
FDRHS 
RDERR 
Ly BUF 
BOOT3 


ArRSCHD 
TYPE! 

IX sBOOTERR 
OUTMSG 

Ar 10H 

TA 


AvI 

DE r0Z00H 
OrA 
NZsFLASH 
DE? 0301H 
1rf 
NZ»FLASH 
DE? 0300H 
ZsA 
NZsFLASH 
DEs0303H 
3A 
NZyFLASH 
DE0102H 
4A 

NZ FLASH 
DE»0302H 
uA 
NZ»FLASH 
DE 0000H 
FLASH 


>> he 


eer 8h Nem Cube Oe > & be odd 


a ae 


~~ o> 


>> 


SP Nhe St SP Sr wh fe 


—~Pr SP 


Or We 


SP & hh 


ba adh 


ERROR IF BOOT FAILURE 
CHECK DRIVE SPEED 


BRANCH IF ERROR 
SECTOR 1 

SET UP MAXIMUM RETRY 
SET FOR READ 

SET DHA 

READ BOOT SECTOR 


JUMP TO BOOT SECTOR IF NO ERROR 
RETRY 


GET RESTORE COMMAND 

FRINT OUT BOOT ERROR MESSAGE 
SET ERROR BIT 

GET ERROK INDICATOR 

SET FOR & BLINK A OFF 

CHECK IF PVTC ERROR 


SET FOR B BLINK A ON 
CHECK IF DISPLAY RAM ERROR 


SET FOR A AND B BLINK 
CHECK IF MEMORY ERROR 


SET FOR A AND B ON 
CHECK IF TIMER ERROR 


SET FOR A AND B ALTERNATE BLINK 
CHECK IF DISK ERROR 


SET FOR A BLINK B ON 
CHECK IF INTERRUPT LINE ERROR 


SET FOR A AND E ON 


MANIPULATION OF LED TO INDICATE ERROR CONDITIONS 


AyD 
(CHDREG) rf 
BC 90 


FLASHI 
C 
NZsFLASHI 


4 
¢ 


a 
? 


SET STATE 1 


DELAY LOOP 


F9FS" 
FOF 4? 
FOFS' 
FOFS' 
FOFB' 
FOF9" 
FOFE 
FOFD' 
FOFF 
FAOL' 
FA03" 
FA0S' 
FA07' 
FAO?" 
FAOB" 
FAOD' 
FAOF’ 
Fail’ 
FAL3" 
FAIS" 
FAi7’ 
FAL? 
FALE 
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FAID' 


FAID' 
FAIF' 
FAZ1' 
FAZL' 
FAZ3' 
FAZS' 
FAZ?" 
FAZ9' 


FAZB' 
FAZB' 
FAZE' 
FAZF' 
FASL' 
FAS2' 
FA34" 


FA36' 
FA36' 
FA9' 
FASA’ 
FASC' 
FASD' 
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FLASH?2: 


2 
f 
“4 
+ 


' 
VDORDO: 


VDORDL: 


Sh Ne fem 


DORDI: 


& 
} 
& 
$ 
& 
t 


VDOWR1: 


“the 


1-31 


ArE 
(CHDREG) sA 


FLASHZ 

C 
NZ»FLASH2 
Ay (KEYEST) 
KEYBMEK 
Z+FLASH 

Ar (KEYEDA) 
PUTCRO 
Z»VDORDO 
PUTCKO 
Z»VDORRO 
PUTCRI 
ZsVDORDI 
PUTCHI 
ZsVDOHR1 
RAARD 
Z»MERRD 
RANHR 
ZyMERWR 
FLASH 


> 


me pe te he fe tate 


Nh 


S & 


> & > 


“ede ae 


SET STATE 2 


DELAY LOOF 

GET KEYBOARD STATUS 

CHECK IF KEY PRESSED 

REPEAT FLASH IF NOT 

GET KEY PRESSED 

CHECK IF DISPLAY RAM READ TEST 
CHECK IF DISPLAY RAN WRITE TEST 


CHECK IF TEST ON BANK i 


CHECK IF MEMORY READ TEST 


CHECK IF MEMORY WRITE TEST 


OTHERWISE REPEAT FLASH 


READ FROM VIDEO RAM CONTINUOUSLY 


READ FROM VIDEO RAN BANK 1 


A»RDCUR 
(VTCCHD) 2A 


Ay (VICSTA) 
VICRDY 
ZyVOORDL 
Ar (VIIDAT) 
VDORDO 


HL» VICBEG+400H 


ArL 
(VICCUL) sA 
ArH 
(VICCUZ) A 
VDORDO 


a 


$ 
a 
f 
a 
t 
s 
t 


a 
¢ 


WRITE TO VIDEO RAM BANK 1 


HL» VTCREG+400H 


ArL 
(VTICCUL) 2A 
ArH 
(VICCUZ) +A 


a 
$ 


READ AT CURSOR POSITION 


WAIT UNTIL READY 
READ IN DATA 
REPEAT PROCESS 


SET CURSOR TO BANK 1 


SET CURSOR TO BANK 1 


WRITE TO VIDEO RAM CONTINOUSLY 


FAS’ 
FASF 
FA41 
FA43" 
FATS ' 
FAG?" 
FA47" 
FAR! 
FASE 
FA4D' 


FASF" 
FAAF' 
FASL" 
FASS 
FAS 
FAS/' 


FAS? 
FAR? 
FASE 
FASE’ 


FAAO' 
FASO: 
FAG2’ 
FAGS' 
FAGG' 
FAG" 
FAGE 
FAGD' 
FAGF ' 
FA7L' 
FA73' 
FA7S" 
FA77' 
FA79' 
FA7C' 
FA7E' 
FARO" 
FAB2 
FAB4' 
FABG' 
FAB?" 
FAB?" 
FABB 
FABD' 
FABE ' 
FAQ! 
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3E AS 
D3 iC 
SE AA 
D3 61 


DE 01 
E4 20 
28 FA 
18 FO 


3E AS 
32 FFFF 


SA FFFF 
18 FE 


3E AG 
32 FFFF 
18 F? 


1E OC 
3A FFDI' 
B3 

CD FDO6' 
06 05 
DE 18 
Ed 40 
28 FA 
DE 18 
Fé 40 
20 FA 
10 F2 
21 0001 
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s 
$ 


VDORRO: 


VOOWRL: 


EMRD+ 


MEMRDI; 


STUPO: 


STUP Ls 


MEASO: 


MEASL: 


MEASZ: 


PAGE 


1-32 


AsTSTPAT 

(VTODAT} 2A + WRITE OUT DATA 
AyHRCUR 

(VTCCMD) 9A 


Ar (VTCSTA) 

VICRDY 

Z*VDOWRL * WAIT UNTIL READY 
VDOURO + REPEAT PROCESS 


READ FROM MEMORY CONTINOUSLY 


Ay TSTPAT 

(HEMEND) 94 + WRITE PATTERN TO MEMORY 
Ay (HEMEND) 

MENRDL + READ BACK FOREVER 


WRITE TQ MEMORY CONTINOUSLY 


LE 
LD 
JE 


As TSTPAT 
CHEMEND } 9A 
MENWR > WRITE PATTERN TO MEMORY 


DISK DRIVE SPEED TES? 


EyROCHD+VERIFY+HDLOAD 


Ar (STEPS) + get stepping rate 

E 

TYPE + restore the drive 

rs) + SET TO WAIT FIVE TURNS AFTER SYNC 
Ay (STAREG) + GET STATUS 

40H + CHECK INDEX BIT 

ZySTUPO ¢ LOOP UNTIL INDEX=1 

Ay (STAREG) 

40H 

NZySTUPI + LOOP UNTIL INDEX=0 

STUPO 

HL» i $ INITIALIZE MEASURED VALUE 

Ay (STAREG) H11 T'S 

40H 37 T'S 

ZsHEASO 7/12 TrS 

Ay (STAREG) + START COUNTING WHEN LOW TO HIGH 
40H 

HL 26 T'S 

NZ»MEASI 

Ay (STAREG) > CONTINUE COUNT UNTIL NEXT LOW TO HIGH 
40H + TRANSITION 

HL + INCREMENT COUNT 

ZeMEASZ 


HL > SAVE VALUE FOR LATER 


FAQ1' 
FA94' 
FAQS ' 
FA97' 
FA98' 
FAQA’ 
FA9D' 
FAGE' 
FAAQ' 
FAAZ' 
FAAZ' 
FAA4' 
FAA4' 


FAAS ' 
FAAS ' 
FAAS ' 
FAA?" 
FAAP" 
FAAC' 
FAAC' 
FAAE' 
FABO' 
FABI' 
FAB4' 
FABS' 
FARE 
FABA' 
FABC' 
FABF' 
FACL' 
FAC4' 
FAC?" 
FAC?’ 
FACC' 
FACD' 
FACF 
FAD2' 
FAD3' 
FAD4' 
FAD?’ 
FADS" 
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11 sail 
AF 


DS 

ES 

Fé 03 
CD FC62' 


SE OC 
1E 03 
BS 

CD FDO" 
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SPDERRS 


SPDRET: 


ry 
$ 


DE» SPDLE 


A 
HL» DE 
HL 


C»SFDERR 
DEs SPDUB 


A 
HL» DE 
CySFORET 


ArQFFH 


+ GET LOWER BOUND 


¢ RETRIEVE MEASURED VALUE 
¢ ERROR IF LESS THAN 
+ GET UPPER BOUND 
+ ERROR IF GREATER THAN 


> SET ERROR INDICATION 


} RRXKXKAAAAKA KAA KA AAA AAA AA KALA AKA KAKA AKA AR AAA KAKAKK EK AKAARAAAK 


a 
} 
a 
; 
} 
a 
$ 
é 
: 
a 
; 
e 
} 
a 
; 
& 
: 
a 
: 
} 
a 
; 
é 
: 
CHECK: 


CHKLPs 


CHECK 


IN: 


OUT; 


TEST CONFIGURATION OF DISKETTE IN DRIVE SPECIFIED 


A~ BIT 0 = 1 -- DRIVE A 


EIT 
A= 0 IF 
ELSE 


REG(S) MODIFIED: 


PUSH 


rs) 0 = SSIDE 
bf - 2 


1 = 1 -~ DRIVE 6 
ERROR 
= SELECT BYTE 
b/ - 6 NOT USED 
1 = DSIDE 
NOT USED 
bl - 4 DRIVE NUMBER 
A 


DE + SAVE REGISTERS 

HL 

DSK + MASK OUT UNNECESSARY INFORMATION 
DSKSEL » SELECT DRIVE 
ArRSCHD+HDLOAD+VERIFY 

EsSLOSTP 

E 

TYPEL + RESTORE R/W HEAD 
EXPTIMsA s CHECK IF TIMED OUT 
NZ» CHKLP + TRY AGAIN 

RSERR 

NZ» CHKERR ! BRANCH IF ERROR 


Ay (SELBYT) + OBTAIN SELECT BYTE 


SIDE1sA +5ELECT SIDE 1 

DSKSEL 

HL» BUF sREAD ADDR INTO BUF 
ArRACHD sSET UP READ ADDR COMMAND 
FDRHS sREAD ADDR FOR VERIFICATION 
A >: 
NZ:CHKERR + BRANCH IF ERROR 

HL »BUF +1 + POINT TO SIDE NUMBER 

Ar (HL) 

A + CHECK IF SIDE 0 

Ay (SELBYT) 

NZ»DSIDES + DOUBLE SIDED IF NOT 
DSIDEsA + 5INGLE-SIDED 


FADB* 
FADD’ 
FADD’ 
FADF 
FAEL' 
FAEL' 
FAE3' 
FAES' 
FAE?" 
FAEA' 
FAED' 
FAEF' 
FAEF ° 
FAFO' 
FAFO 
FAF 1" 
FAF2’ 


FEOO' 
FBOQ2' 
FEO4" 
FBO6' 
FEO8’ 
FBOA' 
FBOC' 
FBOE' 


FEO! 
FE1O' 
FELL" 


FBI2' 
FBL2' 
FB16' 
FBI?" 
FELA' 
FBLB’ 
FBC’ 
FBIF’ 
FB21' 
FB23' 
FB26" 
FB2ZB" 
FBZ?" 
FB2ZC' 
FB2ZD' 
FB30' 
FE33' 
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18 04 


7E 

32 FFDL' 
SA FFD3' 
18 01 


FESS" 
FBAZ' 
FEBA' 
FBIO' 
FB12' 
FEO" 
FBO" 
FBO" 


FB 
CF 


ED 73 FFA4' 


31 FFB’ 
Fo 

ES 

DS 

3A FFE2' 
CB AF 


22 FFCF 
2A FFAG’ 
23 
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DSIDES;: 


CHESAV; 


CHKERR: 


CHKRET: 


a 
$ 
, 


; 
DSKDRG: 


_ DSKEND: 


PVTCI: 


TIMERT:? 


s 
$ 
a 
$ 


! 
UNIMPs 


a 
+ 
a 
$ 
a 
t 


TIMITR: 


PAGE 


ORG 


1-34 


CHKSAV 


ErDSSTEP 
DSIDErA 


+ SET STEPPING RATE 
*DOUBLE-SIDED 


SIDE1 yA 
DSKSEL 
ArE 
(STEFS) 2A 
Ay (SELBYT) 
CHKRET 


*SELECT SIDE 0 


+ SAVE STEPPING RATE 


A : SET ERROR RETURN 


HL + RESTORE REGISTERS 


DE 


OFEOOH 


INTERRUPT VECTORS 


FDIN > DISK DATA REQUEST 
FDEND * DISK COMMAND END 
TUREG + PVTC INTERRUPT 
UNIMP * KEYBOARD INTERRUPT 
TIMITR + PRINTER INTERRUPT 
UNIMF 

UNTHP 

UNIMP 


UN-IMPLENENTED HANDLER 


ET 
RET 


+ DUMMY INTERRUPT HANDLER 


TIMER INTERRUPT HANDLER 


(TIMSTK) SP $ SAVE CURRENT STACK POINTER 
SP» STRTIM + SET UP LOCAL STACK 
AF > SAVE REGISTERS 


Ay (TOREG) 
TIMER yA 
(CHDREG) 2A 
Ar(TOREG) 
(CHDREG) 2A 
+ RE-ENABLE INTERRUPT 


+ RESET TIMER 


HL» (TIMCTR) + INCREMENT GENERAL COUNTER 
HL 

(TIMCTR) 2 HL 

HL» (TIMCNT) s INCREMENT TIMER COUNT 

HL 


FB4' 
FE37' 
FBSA’ 
FEB’ 
FB3D" 
FB41' 
FB42' 
FE44! 
FB46' 
FE49" 
FB4A' 
FB4C’ 
FE4E' 
FESO! 
FBo2" 
FBSO' 
FBS?" 
FBS?" 
FEO? 
FEB" 
FED" 
FBOF' 
FB62' 
FBA4! 
FB66' 
FE69' 
FRAC 
FE?’ 
FB73' 
FB76' 
FB78' 
FB78' 
FB79' 
FB7C' 
FB7E' 
FBBO' 
FBB2' 
FBB4' 
FBS?" 
FEB?" 
FESS" 
FBBE" 
FB8E 
FE8C' 
FB8D' 
FBBE' 
FER? 
FERS 
FB9S' 


FB96" 
FB96' 
FB97" 
FB?" 
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Zz FFAG' 

3A FFAB' 

B7 

28 4E 

ED SB FF94' 


3A FFE?" 
CB FF 
D3 18 


DE 18 
CB 7F 
20 FA 
3A FFE2' 
D3 18 
SE FF 
32 FFA?’ 
11 0002 
ED 33 FF96' 
Zi 9000 
22 FFAG’ 
18 13 


AF 

32 FFA?! 
DE 09 
Ed OF 
28 05 
SE FF 
32 FFAA' 


AF 
32 FFAG' 


ED 7B FFA4' 
C3 FB9S' 


C9 


08 
ED Az 
08 
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WAITLO: 


POLL: 


KEYHIT: 


TIMIRT: 


TMIRET: 


RET 


1-35 

(TIMCNT) sHL 

Ar (RPTFLG) + CHECK IF REPEAT TEST REQUIRED 
A 

Zs TIMIRT > RETURN IF NOT 

DE» (DLYCTR) + GET DELAY LIMIT 

A 

HL DE + CHECK IF TIME REACHED YET 
C»TIMIRT + RETURN IF NOT 

Ar(TSTFLG) + CHECK IF REPEAT TEST IN PROGRESS 
A 

NZyPOLL 

Ar(KEYBST) + CHECK IF KEY HIT RIGHT ON BOUNDARY 
‘EYBMK 7 
NZsKEYHIT : 
Ar (IOREG) + GET COMMAND REGISTER CONTENT 
KEDENA2A + DISABLE KEYBOARD SCANNER 
(CMDREG) 9A 

Ar (STAREG) + WAIT UNTIL BIT 7 GO LOW 
KEDENAsA 

NZ sHATTLO 

Ay (TOREG) + ENABLE KEYBOARD SCANNER 
(CMHDREG) +A 

ArOFFH + SET REPEAT TEST IN PROGRESS 
(TSTFLG) sA 

DEs? + SET DELAY COUNT FOR TWO CYCLES 
(DLYCTR) yDE 7 

HL +0 

(TIMCHT) eHL + RE-INITIALIZE TIMER COUNT 
TIMIRT + AND RETURN 

A > RESET TEST IN PROGRESS FLAG 

(TSTFLG) 2A 

Ay (KEYBST) + CHECK KEYBOARD STATUS 

KEYBME 

Z:KEYHIT + BRANCH IF NOT READY 

ArOFFH + SET AUTO REPEAT MODE 
(AUTFLG) 2A 

A > DE-ACTIVATE REPEAT TEST 

(RETFLG) A 

DE 

HL 

AF 

SPs (TIMSTK) 

THIRET > JUMP VECTOR FOR 3RD PARTY ROUTINE 


FLOPPY DISK INPUT HANDLER 


EX 
INI 
EX 


AF yAF' 


AF s AF! 
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FE9A' = FB EI 
FESR’ C9 RET 


FLOPPY DISK OUTPUT HANDLER 


“Tl se er wee 


FRSC! DOUT? 
FR9C' 08 ‘EX AF» AF? 
FE9D' ED A3 OUTI 
FE9F' 08 EX AF SAF’ 
FRAO' FE ET 
FRAL' C9 RET 
} 
; FLOPPY DISK COMMAND COMPLETION HANDLER 
$ 
FEA?’ FDEND$ 
FRAZ' 08 EX AF SAF’ + SAVE FLAGS 
FEA3' DB 10 IN Ay (FDSTAT) + CLEAR INTERRUPT 
FBAS' 3E Ol LD Arl 
FBA7' 32 FFFF' LO (DSKFIN) 9A $ SET COMMAND END INDICATOR 
FRAA' 08 EX AF yAF' > RESTORE FLAGS 
FEAB' FE ET 
FRAC' 9 RET 
f 
} HARD DISK INPUT/OUTPUT HANDLER 
f 
FBAD' HDIO} 
FEAD' FE ET > RE-ENABLE INTERRUPT 
 FBAE' C9 RET 
t 
; HARD DISK COMMAND COMPLETION HANDLER 
t 
FBAF ' HDEND$ 
FRAF' 08 EX AF + AF' + SAVE FLAGS 
FEBO' DB 37 IN Ay (HDSTAT) + CLEAR INTERRUPT 
FREZ' 3€E O01 LD Ari 
FBR4' 32 FFFF' LD (DSKFIN) 2A > SET COMMAND END INDICATOR 
FEB7' 08 EX AF AF' + RESTORE FLAGS 
FRBG' FB ET 
FEB9' C9 RET 
$ 
; NORMAL FVTC 40 COLUMN INTERRUFT 
$ 
FBEA’ TVREG? 
FEBA' ED 73 FF9D' LD (STKSAV) » SP 3 SAVE STACK POINTER 
FEBE' 31 FFBB' LD SP»STKBAS 
FBC1' FS PUSH AF 
FBCZ' DB Ol IN Ay (VICSTA) + GET STATUS 
FRC4' £6 18 AND INTMSK + SET UP FOR RESET 
FBCé' Fé 40 OR RSTMSK 
FBC8' 93 Ol OUT (VTCCMD) A 
FECA' DS PUSH ODE + SAVE REGISTERS 
FRCB' DD ES PUSH IX 
FBCD' DD 21 FED3' LD TX» TVREGRT + SET RETURN ADDRESS 
FED1' 18 23 JR TVCOMM + GO TO COMMON HANDLER 
FRD3' TYREGRT! 


FBD3' DD El POP sX + RESTORE REGISTERS 


FEDS" 
FBDG' 
FBD?' 
FBDE' 
FEDC' 


FBDD' 
FEDD' 
FBDE' 
FBEO' 
FBE2' 
FBE3' 
FRE4' 
FEES ' 
FBE6' 
FRES' 
FBE?' 
FBEA' 
FBED' 
FBEE' 
FBEF' 
FEF2' 
FBFG' 
FEFS' 
FBFS' 
FEFA' 
FBFE’ 
FCO2' 
FCO4' 
FCO?" 
FCOA' 
FCOC' 
FCOF' 
FC10' 
FCi2' 
FC14' 
FCI7' 
FC19! 
FC19" 
FCIB' 
FC10' 
FC20' 
FOZ" 
FO24' 
FO27' 
FO2A' 
FOZB' 
FO2E" 
FC30' 
FC32' 
FC33° 
FC34' 
FC36' 
FC38" 
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Fi 
ED 7B FF9D' 
FE 
C9 


SA FF9B' 
DD 21 FCSD' 


CE 47 
28 iF 
ED SB FFD?" 
ED 33 FFDB' 
ED SB FFD?’ 


D3 02 


32 FF99' 
3A FFOC' 
BA 

32 FF9A' 
DB 02 
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r 
¢ 


a 
} 


t 
TVDSK: 


—TVCOMM! 


NOTVE: 


1-37 


DE 
AF 
SPs (STKSAV) 


a 
? 


GET ORIGINAL STACK ADDRESS 


PUTC 40 COLUMN INTERRUFT WITH DISK 1/0 


EXX 
IN 


+ GET ALTERNATE REGISTER SET 


Ls(C) 
(C)sE 


Ps 
# 
a 
$ 


GET STATUS 
RESET INTERRUPT 


AF ¢ SAVE REGISTER 


s SWITCH TO ALTERNATE REGISTER SET 


CTYSTAT) sHL 


Ay(TVSTAT} 
TX» TVDSKRT 


VEIT 2A 
ZyNOTVE 

DEs (OFFSET) 
(OFF THP) »DE 
DEs (SCSTART) 
Ay (OFFSET) 
ArE 
(YTCSC1) 2A 
Ay(OFFSET+1) 
ArD 
(VTCSCZ) 9A 
ArOFFH 
(VEFLAG) 2A 
TVCHRT 


LINEOsA 

Zr TVCHRT 

DE »sVTICEND 
Ar(DFFTHP) 
ArE 
(ENDAD) 9A 
Ay (OFF THP+1) 
ArD 
(ENDAD+1) A 
As(VTCSC1) 
E sMAXCOL-1 
AsE 

ErA 
As(VTCSC2) 
DO 

AD 


} 


ee 


- & wm & 


Sue fh Be 


ee 


> & 


 & 


"te = 


we 


owe 


SAVE STATUS 
RETRIEVE STATUS 
SET RETURN ADDRESS 
CHECK IF VELANK 
GET CURRENT OFFSET 


AND SAVE FOR LATER 
GET CURRENT SCREEN START ADDRESS 


UPDATE SCREEN START REGISTERS 


SET INDICATOR FOR SCROLLING 


CHECK IF LINE ZERO 


GET DISPLAY RAM END ADRESS 
CALCULATE END ADDRESS FOR COMPARISON 


AND SAVE FOR LATER 


COMPUTE NEXT LINE START ADDRESS 
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FO3P’ 37 LD Dea 

FCSA’ = 3A FFA’ LD Ay (ENDAD+1) + COMPARE IF WRAP AROUND 
FOID' = 92 SUE D 

FOSE' 20 14 JR NZ +NOTWRA 

FC40' = 3A FF99? LD As (ENDAD) 

FC43' = 93 SUB E 

FC44" = 20 «OE JR ZyNOTHRA 

FC46' =. 11 0080 LO DE VICBEG + HANDLE WRAP AROUND 
FC49' = 3A FFDE' LD Ay (OFFTNF) 

FC4C' = 83 ADD ArE 

FC4D' «= OF LD ErA 

FC4E' = 3A FFDC' LD Ar (OFF TMF +1} 

FCoi' = 8A ADC AyD 

FES2° = 7 LD Drf 

FOS3' = 1B | DEC DE 

FOS4' NOTWRA; 

FOS4' 13 INC DE > SET UP NEW SCREEN START REGISTERS 
FOSS’ = 7B Lf) AvE 

F036’ D3 02 OUT (VICSC1) 2A 

FOSS’ 7A LD ArD 

F037’ = 3:03 OUT (VICSC2) 2A 

FOSB' TVCHRT 

FCoE’ =D E9 JF (IX) ? RETURN TO PROPER HANDLER 
FOSD' _ TVDSRRTS 

FOSD' OD El POF IX + RESTORE REGISTERS 

FOSF' =F FOP AF 

FC40’ sO POP DE 

FC6i' C9 RET 


$ RXXMARAMAAKAAAAAAAA A AKA AAAKAKAA KAA AAK AAAAARAAAAAEXAK AAA AAREALALAEY 


DSKSEL SELECT DISK THROUGH 1/0 REGISTER 


IN: A ~ SELECT BYTE 


eer A i. te eT 


OUT; NONE 

REG(S) MODIFIED: A 
FCG2' SKSEL: 
FCé2' = C5 PUSH =—s-BC > SAVE REGISTERS 
FC63' =. 32:«FFD3' LD (SELBYT} 5A # SAVE SELECT BYTE 
FC66' = ES 07 AND SELMSK + MASK OUT IRRELEVANT BITS 
FC68' = 47 LD BrA 
FC69' = 3A FFE2' LD As (TOREG) + GET PREVIOUS I/0 REGISTER VALUE 
FCAC' £6 FB AND TONSK + DIS-SELECT ALL DRIVE 
FCSE’ 03 18 OUT (SEL) 9A 
FC70' = BO OR B + SET UP NEW SELECT BYTE 
FC71' D3 18 OUT (SEL) 2A + SELECT NEW DRIVE 
FO73' = 32 FFE2' LD (TOREG) 9A * SAVE I/O REGISTER VALUE 
FO76' = CA POP BC : RESTORE REGISTER | 
FO/?7' = 9 RET 


} 
$ KEXKKAAAAAAKAAAKK AKA AAA AK KA LAK AAA AKARAA ALAA KAXAKAKAA AKA AKAAARKAAKAAKAKKAX 


FDRWS FLOPPY DISK SECTOR I/0 INTERFACE 


oP Nm See Ne 


In: A ~ COMMAND 


FC78’ 
FO78° 
FE79' 
FC7D' 
FC8O' 
FCB1' 
FCG? ' 
FO83" 
FCGS' 
FC87' 
FC88' 
FC89' 
FCBA' 
FC8D' 
FCOF' 
FC92' 
FO94' 
FO9S' 
FE96' 
FC97' 
FC9A' 
FC9C' 
FOIE! 
FCAL' 
FCAL' 
FOAS' 
FCA8’ 
FCAC' 
FCAF' 
FCES' 
FCBS' 
FOR ' 
FOB?" 
FCBA' 
FCBB' 
FCBC' 
FORE" 
FCC1' 
FOC2' 
FCC3' 
FOCS' 
FCCS' 
FCC8' 
FOC?" 
FCCB' 
FCCC’ 
FCCF' 
FCDO' 
FCD3' 
FCDA" 
FCD?' 


MACRO-80 3,44 


F3 
ED 73 FFCD' 
31 FFCD' 


O1 FB94' 
CB OF 
28 03 
Q1 FBIC' 


ED 43 FEOO' 
O1 FBAZ' 

ED 43 FEO2' 
O1 FEDD' 

ED 43 FBO4' 
OE 13 


gE 28 


32 FFIB! 


09-Dec-81 


DRWS: 


SETVEC: 


FDRWLFS 


PAGE 


OUTS 


1-39 


HL ~ DMA ADDRESS 
A - TYPE 2 STATUS 
HL - NEXT DMA ADDRESS 


REGISTER(S) MODIFIED!  ArHrL 


DI 
LD 


s DISABLE INTERRUPT 


(DSKSTK) » SP + SAVE CURRENT STACK 
SPs STKDSK + SET UP NEW STACK 
+ SAVE ALTERNATE REGISTER SET 
BC 
HL 
ByRSTMSK+INTMSK + SET UF RESET COMMAND 
CrVTCCHD 
AF rAF' 
AF 
Ar (IOREG) + DISABLE TIMER 
TIMER: A 
(IOREG) +A 
(CMHDREG) 2A 
AF AF’ 
BC + SAVE REGISTERS 
DE 
BC »FDIN > SET FOR INFUT HANDLER 
WRCMND A + CHECK IF WRITE COMMAND 
ZrSETVEC 
BC sFDOUT + SET FOR OUTPUT HANDLER 
(DSKDRQ) BC + SET UP VECTOR 
BCyFDEND 
(DSKEND) 2BC 
BC» TYDSK 
(PUTCI) BC 
C»FDDATA + SET UP I/0 PORT ADDRESS 
BrA + SAVE COMMAND 
A 
(DSKFIN) 5A + SET WAITING FOR COMMAND TO COMPLETE 
DrA > SET UP SOFTWARE TIMER 
E rf 
Ax40 
(DLYCNT) +A 
ArE + RETRIEVE COMMAND 


+ MAKE SURE INTERRUPT IS ENABLED 
(FOCHD) 5A + SEND COMMAND TO CONTROLLER 


Ay (DSKFIN) + GET COMMAND STATUS INDICATOR 
* WAIT UNTIL COMMAND FINISH 

CoRWFIN 

e 

NZ»FDRWLP 

D 

NZ»FDRKLF 

Ay (DLYCNT) 

A 

(DLYCNT) 2A 


FCDA’ 
FCDD' 
FCOF' 
FCE1' 
FCE3? 
FOES" 
FCES' 
FCE?' 
FCE?' 
FCEA' 
FCEE' 
FCEF ' 
FCFO' 
FCF1' 
FCF 4! 
FCFG' 
FCF9! 
FCFE' 
FCFC' 
FCFD' 
FCFE' 
FCFF' 
FDOO' 
FDOL' 
FDOS' 


FDOG' 
FDOG' 
FDOA' 
FDOD' 
FDOE' 
FDOF 
FD10' 
FDA1' 
FD12' 
FD13' 
FDIS! 
FDIS! 
FD18' 
FD19' 


FDIC' 
FDIF' 
FD2Z3" 
FD24' 
FD25' 
FD27' 
FDZA' 
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C2 FCCS' 
3E 00 
D3 10 
3E 30 
18 02 


DE 10 


01 FEBA' 
ED 43 FEO4' 


ED 7B FFCD' 
C9 


ED 73 FFCD' 
31 FFCD' 


CD FD60' 
3D 
C2 FDIS" 


11 FEAZ’ 

ED 33 FROZ' 
uf 

uF 

OE 30 

32 FFFF! 

Fi 


09-Dec-8i 


RWFIN: 


FDRNRT} 


r 
f 


1-40 


NZ »sFDRHLP 
AsFITRPT 
(FOCHD) 9A 
As TIHEXP 
FDRWRT 


Ar (FDSTAT) 


ECs TVREG 
(PUTCI3 2BC 


> CANCEL COMMAND 


+ SET FOR TIMED OUT ERROR 


+ GET STATUS 


> RESET TO NORMAL FVTC 40 COL. HANDLING 


BC + RESTORE REGISTERS 


AF yAF' 

Ar (IOREG) 
TIMER? A 
(TOREG) +A 
(CHDREG) 9A 


+ RE-ENABLE TIMER 


s RESTORE ALTERNATE REGISTER SET 


SF (DSESTK) 


+ RETRIEVE PREVIOUS STACK 


> RXRAKKKARKAAA AA AAR A AKER AA KAA RAKE AK AA KAA AKAT AK EA KAR AKA AKAAK ANA AK IX 


} 
4 
+ 
é 
+ 
} 
4 
; 
a 
3 
a 
$ 


YPELs 


TYPE1Z: 


TYPE 


IN; 
OUT: 


HANDLE ALL TYPE I COMMAND FOR FLOPPY CONTROLLER 


A - TYPE I COMMAND 
A - TYPE I STATUS 
REG(S) MODIFIED: 


(DSKSTK) + SP 


SPs STKDSK 
AF 2 AF! 


A 


DE + SAVE REGISTERS 


AF > SAVE COMMAND 


NZ» TYPELZ 


DE» FDEND 


(DSKEND) + DE 


DrA 
ErA 
C80 
(DSKFIN) A 


+ 2 HS DELAY 


+ SET UP INTERRUPT VECTOR 


+ SET UP SOFTWARE TIMER 


AF > RESTORE COMMAND 
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FO2B' = 47 LD ErA 
FO2C' AF © XOR A » CLEAR CARRY FLAG 
FD2D' 78 LD Ark 
FO2ZE’ FB EI s MAKE SURE INTERRUPT IS ENABLED 
FDZF' D3 10 OUT (FOCHD) 9A » ISSUE TYPE 1 COMMAND 
FD31' TYPE10; 
FD31' 3A FFFF' LD Ay (DSKFIN) > CHECK COMMAND STATUS INDICATOR © 
FO34' =F RRA 
FO35' 38 14 JR CrTYPE14 
FD37' 1D DEC E 
FO38' C2 FD31' uP NZ+TYPE10 
FOSB' = 15 DEC D 
FD3C' = C2 FD31' JP NZsTYPELO 
FOSF' = 0D DEC C 
FD40' = C2 FD31' JP NZrTYPE1O 
FD43° TIMOUT: 
FD43' = 3E DO LD ArFITRPT + CANCEL COMMAND 
FD4S' D3 10 OUT (FOCHD) sA 
FD47* =3E 80 LD Ay TIMEXP + SET ERROR 
FD49' = 18 OB JR TYPELS 
t 
FD46" TYPE14: 
FD4B' = 3E 10 LD Arlé #14 MS DELAY 
FD4D' TYPE13: . 
FD4D' = CD FD60' | CALL DELAY 
FOS0' 63D DEC A 
FOS1' C2 FD4D’ JP NZ+TYPEL3 
$ 
FOS4' DE 10 IN Ay(FDSTAT) 
FDS TYPE1S; 
FDS6' Cl POP BC > RESTORE REGISTERS 
FDS7' Dl POP DE 
FOS8' 08 EX AF AF! 
FDS?’ =F POP AF 
FDA’ = 08 EX AF AF’ 
FOSB' ED 7B FFCD' LD SPs (DSKSTK) 
FDSF' 9 RET 
$ 
} AXXXMEXMAKAAAAAAKKAKAAKRAAXNAKEAA ARAL ERNEAA REALL ARERKAAAKAAEAAY 
$ 
; DELAY DELAY FOR 1 MINI-SECOND 
; IN: NONE 
; OUT’ NONE 
; REG(S) MODIFIED: NONE 
f 
FD60' DELAY: 
FDA0' = 05 PUSH = BC 
FD61" = 04 01 LO Br 
FD63" DL: 
FD43' = OE FF LD CrOFFH 
FD63' DLO; 
FD65' 0D DEC C 
FD66' C2 FD4S' JF NZ»DLO 
FDA?’ = 05 DEC E 


FDA’ C2 FD63' JP. NZ»DLI 


MACRO-80 3.44  09-Dec-B1 PAGE 1-42 


FD4D' = Cl POP BC 
FD6E' 9 RET 


 MAAKMAAAAAAARAAKAAAAA XARA AA KAKAAAKA KAA KL RAIARAKAAXIAAAKAKAAANAKAA 


HOHOHE HARD DISK RESTORE 


} 

; 

; 

: IN: A - COMMAND 

$ QUT: A- 0 IF NO ERROR 

, ~ ERROR REGISTER CONTENT OTHERWISE 
? 

H 


FDOF' DHOME: 
FDOF' DS PUSH = DE + SAVE REGISTERS 
' LD DE» HDEND * POINT TQ HANDLER 
} LD (DSKEND) sDE > PUT INTO VECTOR 
, PUSH = AF » SAVE COMMAND 
: XOR A 
; LD (DSKFIN) 2A + SET COMMAND STATUS TO WAIT 
; LD DrA + SET UP SOFTWARE TIMER 
: LD EsA 
i FOP AF + RETRIEVE COMMAND 
; EI + MAKE SURE INTERRUPT IS ENABLED 
' OUT HDCHD A + SEND OUT COMMAND 
sHDHONI: 
} LD Ay (DSKFIN) + CHECK IF COMMAND FINISH 
} OR A 
; JR NZ »HDHOM? 
pam, $ DEC DE * DOWN COUNT SOFTWARE TIMER 
} LD ArD 
; OR E 
: JR NZsHDHOML 
j LD Ay TIHEXP * SET TIMED OUT ERROR 
; JR HDHOK3 
#HDHONZ: 
FD70' 03 37 OUT (HDCHD) 9A + SEND OUT COMMAND 
FD72' HDHOM1 
FD72' DB 37 IN Ay (HDSTAT) + WAIT UNTIL COMMAND FINISH 
FO74' = CB 7F EIT 7 yf 
FD76' 28 FA JR ZyHDHOH1 
FD78' HDHOM2: 
FD78' DB 3? IN Ay (HDSTAT) 
FD7A' CB 7F BIT 7 yf 
FD7C' 20 FA JR NZ» HDHOMZ 
FO7E' DB 37 IN Ar (HDSTAT) + GET STATUS 
FD80' CB 47 BIT HDERRS A > CHECK IF ERROR 
FO82' 20 03 JR NZ HDHON4 
FOB4' = AF XOR A + SET NO ERROR 
FDBS' = 18 02 JR HDHOK3 
FD87" HDHOM4 
FD87' DB 31 IN Ay (HDERR) > GET ERROR REGISTER CONTENT 
FD89' HDHOMS: 
FOB?’ = Di POP DE + RESTORE REGISTERS 
FDBA' = CP RET 


; 
j MAXXRKKAAAAAA AAA KA AAKKAAKAAAKAKAKA KALA AAALA KALA RAK AAAAAXAAAKAAAKIAY 
i 


FD8B’ 
FD8B' 
FO8C" 
FD8D* 
FDBE' 
FD9Q' 
FD92" 
FD94' 
FD96' 
FD9?7' 
FD97' 


FD98' 


FD9A' 
FD9C' 
FD9E ' 
FDAO' 
FDAO' 
FDAZ' 
FDA4' 
FDAS' 
FDA? ' 
FDA? * 
FDAB" 
FDAB' 
FDAA‘ 
FDAC' 
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OE 30 


09-Dec-81 PACE 


pe 


DRHS: 


FIVE12: 


en Sh ep wer 
ren" 
Lo] 


SP SP Sh hh WP SP OR Ah 
| eee 
i 


HDRRLF 
, LD 


we we OP em ee wee OP tee 
oS 
a 


+HDRWENS 


HDWRLP: 


HDR: 


HDRW2 + 


1-43 


HARD DISK INTERFACE 


HL - BUFFER 
A - COMMAND 
A - 0 IF NO ERROR 
- ERROR REGISTER CONTENT OTHERWISE 
HL - NEXT BUFFER ADDRESS 


BC + SAVE REGISTERS 


DE 

AF + SAVE COMMAND 

Fe? + SET FOR 512 BYTES 
Ay (HDSDH) + GET SELECT BYTE 
ur 

NZ»FIVEL2 

E + SET FOR 254 BYTES 


AF + RETRIEVE COMMAND © 

DE sHDEND > POINT TQ HANDLER 
(DSKEND) »DE > PUT INTO VECTOR 
DE» HDIO 


(DSKDRQ) » DE 
CyHDDATA + SET UP DATA REGISTER 
A 
(DSKFIN) sA + SET COMMAND STATUS TO WAIT 
DrA + SET UP SOFTWARE TIMER 
ExA 
ArB + RETRIEVE COMMAND 
> MAKE SURE INTERRUPT IS ENABLED 
HOCHD yA + SEND OUT COMMAND 
A» (DSKFIN) + CHECK IF COMMAND FINISH 
A 
NZ sHDRWEN 
DE + DOWN COUNT SOFTWARE TIMER 
ArD 
E 
NZsHDRWLP 
Ay TIMEXP + SET TIMED OUT ERROR 
HORWRT 
(HDCND) »A , 
HDREAD + CHECK IF READ 
ZyHDRD 
Br0 + SET UP COUNTER 
+ SEND DATA TO CONTROLLER 
F 
NZ sHDOWRLF 
BrA + SAVE COMMAND 
Ay (HDSTAT) 
7h 
Z+HDRHZ 


FDAE' 
FDAE’ 
FDEO' 
FDB2' 
FDB4' 
FDBS' 
FDB?' 
FDB?' 
FDB9' 
FDBB' 
FDBD' 
FDBE' 
FOCO' 
FDCO' 
FDC2" 
FDC4' 
FDCG" 
FDC?" 
FDC?" 
FDCY' 
FDCB' 
FOCB" 
FOCC’ 
FDCD' 


FOCE’ 
FDCE' 
FDCF ' 
FDD2' 
FOD3' 
FDDS' 
FDD7’ 
FDD9' 
FODB' 
FDOD' 
FDEQ' 
FDE3' 
FDE4' 
FDES' 
FDES' 
FDEB" 
FDED’ 
FDEF ' 
FDF1' 
FDF 1° 
FDF2' 
FDFS' 
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AF 
32 FFAA' 
SA FF94! 


HDRN3: 


HDRDLP? 


HDNORD; 


HDRWER: 


HDRWRT: 


} 
o RXAAXAAKANRAAAARAAKARAKRAKAUAAAAKAXAKAAKKAAKANAAAAKAAAAIAAAAAAKAAAA 


é 


’ 
a 
; 
} 
; 
a 
i 
; 
' 
& 
; 


ATAST: 


AUTORP: 


PAGE 


POP 
POP 
RET 


DATAST 


IN; 
OUT: 


1-44 
Ay (HDSTAT) 
739A 
NZ »HDRW3 
ArB + RETRIEVE COMMAND 
HDREAD + CHECK IF READ 
NZ sHDNORD 
BQ + SET UP COUNTER 
+ GET DATA FROM CONTROLLER 
E 
NZ sHDRDLF 
Ay (HDSTAT) + GET STATUS 
HDERRS A > CHECK IF ERROR 
NZ» HDRWER 
A + SET NO ERROR 
HDRWRT 
Ay (HDERR) + GET ERROR REGISTER CONTENT 


BC 


DE > RESTORE REGISTERS 


CONSOLE STATUS 


NONE 


NO CARRY IF NOT READY 
CARRY IF READY AND A=DECODED VALUE 
REG(S) MODIFIED: 


A 


DE sSAVE REGISTERS 


As(TSTFLG) 
A 
NZ>DATNRD 
As (KEYBST) 
KEYBMK 

Zs DATNRD 
ArOFFH 
(RPTFLG) oA 
Ay (AUTFLG) 
A 

NZ sAUTORP 
Ar (KEYBDA) 
DECODE 
7sf\ 
NZ*FUNKEY 
DIFKEY 


A 
(AUTFLG) 2A 
Ar (LASTRY) 


“> & 


+ CHECK IF REPEAT TEST IN PROGRESS 


SKIP PROCESSING IF IT IS 
CHECK STATUS 


SP MS 


RETURN IF NOT READY 
ACTIVATE REPEAT KEY TEST 


8 ee 


tp & 


CHECK IF IN AUTO REPEAT MODE 


AND PROCESS ACCORDINGLY 
GET KEY PRESSED 


SP he 


CHECK IF FUNCTION KEY 


> me 


RESET AUTO REPEAT HODE 
GET LAST KEY PRESSED 


S & 
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FOF8' £6 3F AND —_-KEYNSK + IGNORE CONTROL AND SHIFT BIT 
FOFA' 5F LD SséEAA + SAVE FOR LATER 

FDFE' DB 08 IN Ar (KEYBDA) + GET KEY PRESSED 

FOFD' CD FE25: CALL  DECODE 

FEOO' CBF BIT  7:A } CHECK IF FUNCTION KEY 
FE02' 20 OD UR NZ yFUNKEY 

FE04' = 3A FF94! LD = As (LASTKY) $ GET KEY PRESSED 

FEO7' 4 3F AND ——_KEYHSK + STRIP SHIFT AND CONTROL BITS 
FEO?’ BB (POE + CHECK IF SANE AS PREVIOUS KEY 
FEOA' 20 09 UR NZYDIFKEY + BRANCH IF NOT 

FEOC' 11 0005 LD DE» PTOS + SET AUTO REPEAT TIMER 
FEOF’ 18 07 JR SETDLY 

FEL FUNKEY! 

FEL1' AF XOR A 

FE12' 32 FFAG! Lo (RPTFLG) 9A + RESET REPEAT FLAG 

FE15' DIFKEY: | 

FEIS' 11 0050 LO «DE ,ONESEC + SET DELAY FOR ONE SECOND 
FE1g' SETDOLY! 

FE18' ED 59 FF96' LO (DLYCTR) »DE 

FEIC' 3A FF9S! LD Ar (KEYVAL) + GET DECODED VALUE 

FEIF' 37 SCF + SET READY 

FE20' 18 O1 JR = DATIRT 

FEZ?" DATHRD! 

FE22' AF XOR fl + SET NOT READY 

FE23" ‘DATIRT! 

FE23' Dt POP sO 

FE24' C9 RET 


DECODE KEY ENTERED TO ASCII 


INPUT: A - KEY VALUE 
OUTPUT: A - DECODED VALUE 


SJ er eh we eh Oh tee 


FE2o' ECODE: 

FE23' ES PUSH = HL > SAVE REGISTERS 

FE26' C5 PUSH = BC 

FE27' 21 0000 LD HL» * RE-INITIALIZE TIMER COUNT 
FE2A' 22 FFAG' LD (TIMCNT) HL 

FE2D' 32 FF94' LD (LASTRKY) vA + SAVE KEY PRESSED 

FE3O' «21 ~FES3? LD HL yKEYTBL * POINT TO DECODING TABLE 
FES3'  4F LD CA 

FE34' CB 77 BIT SHIFT A + CHECK IF SHIFT KEY DEPRESSED 
FE36' 28 ii JR ZySHFTEN 

FE3B CB 7F BIT CNTLrA * CHECK IF CONTROL KEY DEPRESSED 
FESA’ 28 OD JR Z+SHFTEN 

FESC' DB i8 IN Ar (CAPREG) * CHECK IF CAPITAL LOCK ON 
FESE' CB 67 BIT CAPLCKsA 

FE40’ = 20 07 JR NZ» SHFTEN 

FE§2' 9 24 FFS3' LD HL» CAPTBL * POINT 10 CAPITAL LOCK TABLE 
FE§S' = 79 LD ArC 

FE96' £6 3F AND KEYMSK ¢ STRIP CONTROL AND SHIFT BITS 
FE48'  4F LD CrA 

FE49" SHFTEN: 

FES?’ 06 00 LD Br( 

FESR’ 09 ADD HL»BC 


FE4C' §=7E LD Ar (HL) ¢ GET ASCII VALUE 


MACKO-80 3.44 


32 FF9S' 


1B 00 BS iE 
B9 BO 460 7F 
Bi 63 B4 &7 
BS iF 3D 80 
09 C5 D? DS 
C? 7B 7D 80 
D1 D7 D4 D9 
CF DO 7C 08 
BO Ci Cé C7 
CE CC OD OA 
80 03 C4 C8 
CA 36 27 80 
80 D8 C3 CE 
CD 2F 93 80 
20 DA Dé C2 
2C 2E 98 80 


1B 32 35 36 
37 30 40 7F 
31 33 34 37 
38 2D 30 00 
09 05 12 15 
09 18 1D 00 
11 17 14 19 
OF 10 1C 08 
00 01 04 97 
OF OC OD OA 
00 13 04 08 
OA 3B 27 00 
60 18 03 OE 


A SS PO Pa mh ee 
OM 8 Db Of OO 
™ .& OAPI PQ 
man Te oa ww & 
“wa CA Pa Po Sd Pa 
POO ob Pr oN 
Oo oh oS Psa“ of 
mam OS Of TT IT 
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DCODRT: 


ry 
? 
s 
; 


KEYTEL: 
; 
} 
, 


“te te he Be 


PACE 1-46 


LD (REYVAL) 9A s SAVE DECODED VALUE 


POF EC + RESTORE REGISTERS 
POP HL 
RET 


KEYBOARD DECODING TABLE 


FUNCTION = SHIFT AND CONTROL 

DE OLEH: Q00Hs OSH» OLEH: OB9Hr OBOH» 040H)07FH 
DE OBLH» OB3H: OB4Hy OE7Hs OBGHs O1FHs O3DH»080H 
DE Q09HOCSH? ODZHs ODSH: OCIHs 07BH107DH»080H 
DE ODLHyOD7H» OD4Hs OD9Hs OCFHy OD0H»070H» 008H 
DE O80Hs0C1H»0C4Hs0C7H» OCBH: OCCHy OODHs OOAH 
DE O80H?0D3Hs0C4Hr OCBHs CAH? O3BH2027H» 080H 
DE OBOHs ODBH» OC 3H» OCEHs OCDHs O2FH?093H» O80H 


DB O20HrODAHs ODGH»0CZHs 02TH» OZEHs 098Hs 080H 


NO SHIFT AND CONTROL 

DB O1BH»932H»035H20346H2039H 2030H2060H207FH 
DE O31H1033H034H1037H»038H»02DH203DH2000H 
DE O09H1005H012H»015H 009Hs O1BH» O1DH» OOOH 
DE OL1HO17Hs014HyO1 9H, OOFH OL0H101CHs008H 
DB Q00H1001Hy006H1007H» OOBHy 00CH» O0DHs OOAH 
DE 000H1013H»004H» 008Hs OOAHs 03BH1027H1000H 
DE O00H?018Hy003H» O0EHs OODH?02FHs013Hs000H 


DE O20H»01AHs016H:002H»02CH»02EH?018Hs000H 


SHIFT AND NO CONTROL 
DE O1BHy040H?025H» 0SEHs028Hs029H»07EHs 07FH 
DE 021H1023H»024H1026H2 O2ZAHy OOFH» O2ZBH» 000H 


DE O09H 2 045H»052Hr055H»049H207BH107DH2000H 


240 


*48 


08 


90 


FEEB' 
FEEF’ 
FEF3' 
FEF?’ 
FEFE! 
PEGE: 
FFQ3' 
FRO?" 
FF OE’ 
FFOF’ 


FF13' 
FFI?! 
FFiE' 
FFIF’ 
FF3' 
FF27' 
FFZE' 
FFEF' 
FF33' 
FF37' 
FFE" 
FFOF' 
FF43' 
FF47' 
FF 46! 
FFAF' 


FFSS' 
FFS3' 
FRO?! 
FFB! 
FF OF 
FF43' 
FFA?" 
FFE 
FF OF’ 
FF73" 
FF7?' 
FF7E' 
FFF ' 
FF83' 
FFG?" 
FFE! 
FF OF ' 


FF93! 
FF4! 
FF9S' 
FF94' 
FF9B' 
FFD! 
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wl 57 34 59 
4F 50 7C 08 
0 41 44 47 
46 4C OD OA 
06 53 44 48 
4A 34 22 06 
9 58 43 4€ 
40 oF 19 0G 
20 3A 96 42 
3C SE OE 06 


1B 32 35 36 
39 30 60 7 
31 33 34 3? 
38 270 30 00 
09 45 O32 35 
49 SB 5D 00 
31 57 34 39 
4F 50 SC 08 
00 41 46 47 
46 4C OD OA 
00 53 44 48 
44 3B 27 00 
00 58 43 4E 
4D 2F 02 00 


20 SA 36 42 
2C 2E 04 00 
00 

09 

00 

0030 

00 


0?-Dec-81 


CAPTEL: 


CHKSUM: 
LASTKY; 
REYVAL 3 
DLYCTRe 
DLYCNT: 
ENDAD; 


PAGE 


DE 


DE 


DE 


DE 


DE 


1-47 


OO1H2057Hy 054Hs OS9H: OFF Hr OS0H 107TH: 008H 
000H»041H»046H1047Hs 04BH: O40Hs OODH» OOAH 
Q00H2053H»044H»048Hs O4FAH? O3AH?022H2 00H 
Q00H 2 058Hs943Hy O4EHs 04DH 1 O3FHr O10H2000H 


O20H»05AH:0546H2042Hs03CH: 03EH? 00EH? 000H 


NO SHIFT AND NO CONTROL 


DE 


DE 


DE 


DE 


DE 


DE 


DE 


DE 


QIBH1032H»035H2036H?039H1030H1040H?07FH 


O31Hy033Hs034H2037H»038H102DH»O3DH2 O00H 


09H 9 065H1072H1975H2 OGPHr OSEHs OSDH O00H 


071H2077H1074H207 9H: O6FH:070HyOSCH»008H 


000H7041H2946H1047Hs 06BHs 04TH: OODHs O0AH 


Q00H?073H»054H: O48Hs O4AH 2 03BH1027H2000H 


000H?078H» 043H»04EH2 06DH192FH» 002H»000H 


020H:07AH1076H»O462H»O02CHr0ZEHs 006H?000H 


CAPITAL LOCK DECODING TABLE 


DE 


DE 


DE 


DE 


DE 


DE 
DE 
DB 
DW 
DE 
DH 


OLEH» 032H» 035H»036H:039H1030H?060H207FH 
)31H1033H2034Hr037H:038H»02DH:03DH»000H 
Q09H? O45H2052H2 05H 049Hy 0SBH: OSDHr000H 
Q51H»057H2054H»059Hs 04FHy050Hs 05TH» OOBH 
000H1041H»0446H»047Hs O4BH2 04H» O0DHs OOAH 
OOOH» 053Hs044H»048H:04AH203BH2027H»000H 
OOOH: 058Hs 043H» O4EHs 04DH102FH002H2000H 
O20H» OSAH?056H: 042Hs 02CH102EH?906H1000H 

+ CHECKSUM 

> LAST REY ENTERED 


0 
) 
0 + LAST DECODED VALUE 
0 
) 


+ DELAY COUNT 


* AUTO REPEAT DELAY COUNT 


rE0 


FF9B' 
FF9D' 
FFOF' 
FFAL' 
FFA3' 
FFA4' 
FFAG’ 
FFAS’ 
FFA?’ 
FFAA' 
FFAB" 
FFAD' 
FFBL' 
FFBS' 
FFE3" 
FFB! 
FFE" 
FFB 
FFBB' 
FFBF 
FFC3' 


FFCD' 
FFCD' 
FFCF' 


FFD1' 
FFD2' 
FFD3' 


FFD4' 
FFDS' 
FFD7' 
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0000 0000 
0000 


0000 
0000 9000 
0000 


0000 0000 


0000 0000 
0000 


0000 
0000 


00 


0 


0000 
00 
0000 


09-Dec-81 


TVSTATS 
STKSAV: 
NAXTRK3 
TRENBRi 
SECNBR: 
TIMSTK? 
TINCNT: 
RPTFLG: 
TSTFLG: 
AUTFLG: 


STKTIM 


STRBAS 


STROSK: 
DSKSTKs 
~ TINCTR: 


ee he SP Nh RP hh 


t 
STEPS: 
DSKCHD: 
SELBYT; 


t 


2 le hm hm Oh NO 


$ 
COLNO: 
LINENOs 


PAGE 1-48 
DW 0 
DW 0 
DW 0 s DISK TEST VARIABLES 
OW 0 
DE 0 
DW 0 + STACK SAVE FOR TIMER INTERRUPT 
DY 0 + TIMER COUNTER 
DE 0 + REPEAT FLAG 
DB y) + REPEAT IN FROGRESS FLAG 
ne 0 > AUTO REPEAT MODE 
DW 1) + EXTRA STACK ENTRY FOR SECONDARY ITRFT 
DW Or020 
EQU $ + LOCAL STACK FOR TIMER INTERRUPT 
DW 0 i EXTRA STACK ENTRY FOR SECONDARY ITRFT 
DW 07020 
EQU $ > LOCAL STACK FOR 40 COLUMN 
DW 070107090 + RESERVE STACK FOR DISK I/0 
ORG OFFCDH 
> LOCAL STACK FOR FLOPPY DISK I/0 
DW 0 
DW 0 + GENERAL TIMER COUNT 
ORG OFFDIH 


BOOT SECTOR CONSTANT 


FFDi = STEPS 
FFD2 = ©DSKCHD 
FFD3 = SELBYT 


DE 0 > STEPPING RATE 
DB 0 + DISK COMMAND 
DE 0 » SELECT BYTE 


BOOT PROM TO BIOS COMMUNICATION AREA 


FFD4 = COLNO 
FFD6  LINENO 
FFD? = SCSTART 
FFD9 = OFFSET 
FFDB  OFFTMP 
FFDD = =©VBFLAG 
FFDE NOT USED 
FFDF SWITCH 
FFEO  ©MODREF 
FFE1  ITRREG 
FFE2 IOREG 
FFE3  DTRNTB 
FFES = DPBASE 


DW 0 + COLUMN NUMBER 
DB 0 > LINE NUMBER 


SCSTART + DW 0 + SCREEN START ADDRESS 


FFD?" 
FFOB' 
FFDD' 
FFDE’ 
FFDF' 
FFEO' 
FFE1' 
FFE2' 
FFE3' 
FFES' 


FFE?" 
FFEA’ 
FFED' 
FFFO' 
FFF3' 
FFF6' 
FFF! 
FFFC’ 
FFFF' 
0000' 
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C3 FOCE' 
00 00 00 
C3 FD8B' 
C3 FD6F’ 
C3 FC78' 
C3 F062" 
C3 FD06' 
C3 FD60' 
00 
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OFFSET: 
OFF TMP 
VBFLAG: 


SYSCHD; 
MODREG: 
TTRREG; 
TOREG: 

DTRNTE: 
DPBASE 


$ 
a 
$ 
4 
; 
s 
$ 
a 
$ 
a 
$ 
s 
$ 
a 
$ 
a 
t 


; 
CONST: 
CONIN: 


DSKFIN: 
STOP: 


PAGE 


DH 
DW 


DY 
DW 


FFE7 
FFEA 
FFED 
FFFO 
FFF 


1-49 

0 + OFFSET 

0 » TEMPORARY STORAGE FOR OFFSET 
0 + VBLANK FLAG 

0 + NOT USED 

) + SYSTEM CONTROL WORD 

0 + PYTC MODE REGISTER 

0 + I REGISTER 

0 + CONTROL REGISTER 

0 ¢ LOGICAL TO PHYSICAL DISK TRANS, TABLE ADR. 
0 + ADDRESS OF DISK PARM. TABLE 
JUNP CONST 

JUMP = CONIN 

JUMP = -HDRWS 

JUMP = HDHONE 

JUMP FDRWS 

JUMP = DSKSEL 

JUMP =—sTYFEI 

JUMP = DELAY 

DATAST 

02020 

HORWS 

HDHOME 

FORKS 

DSKSEL 

TYPE1 

DELAY 

OOH + DISK COMMAND STATUS INDICATOR 


Macros; 


Symbols: 


F4A0' 
FOFI' 
O46E' 
0315" 
F943" 
0020 

F989" 
F902" 
0080 

0018 

0008 

O1BC' 
FSFD' 
FAC’ 
o1C2' 
F603" 
FF93' 
0007 

0001 

FFE7' 
0071" 
0030 

FDCE' 
F873" 
-FE25! 
0468" 
FD63' 
0040 

FADD' 
FFD2' 
FFFF' 
002A 

F518! 
F531" 
F543! 
F578" 
FF99' 
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ACTTST 
AUTOR 
P2HLF 
BADSYS 
BEEPLi 
BONN 
BOOT1 
BOOT4 
BUF 
CAPREG 
CHARZK 
CHECKS 
CHECKS 
CHRKLP 
CHKLP3 
CHKLP4 
CHKSUM 
CNTL 
COL 40 
CONST 
CPUERR 
CUROFF 
DATAST 
DATORT 
DECODE 
DIGIT 
DL1 
DOT? 
DSIDES 
DSKCHD 
DSKFIN 
DSKTST 
DTLP2 
DVFY1 
DVFY4 
DVFY7 
ENDAD 
FAILMSG 
FDDATA 


FDOUT 


FDRWS 
FDTRK 
FLASH 
FLHL10 
FLHLP2 
HDCMD 
HDCYLL 
HDERR 
HDHON2 
HDHOME 
HDNORD 
HDREAD 


09-Dec-81 
F697’ = AFMOVE 
0446' 2H 
0455'  B2HLSN 
0080 BEEP 
FO4R’ = BEEPL2- 
FEC?’ = =BOOT 
F992' = BOOT2 
F7D8'  BOOTERR 
0005 CAPBIT 
FF53’ CAPTBL 
F874" CHARDUT 
FOBC' CHECK4 
F86E'  CHKCR 
03D0' CHKLFI 
FSC2' CHKLP4 
FAFO' CHKRET 
FB84' CHORET 
0002 = CNTLE 
FFD4' COLNO 
0346' CONTENT 
QOO6E'  CPUTST 
0031 — CURON 
FE23' DATIRT 
F91A'  DCERR 
FD60' DELAY 
0029 DISPON 
FF98' DLYCNT 
FFES'  DPBASE 
0003 DSK 
FBOO'  DSKDRQ 
FC42' = DSKSEL 
0000 DSSTEP 
F72E'  DTMSG 
Fog6' = DVFY2 
FO7F' = DYFYS 
FO8D' DVFYB 
F7FF’ ERRITR 
0010 FDBASE 
FBAZ'  FDEND 
FCCS'  FORWLF 
0012 FDSEC 
00D0  FITRFT 
FOEE' FLASH 
0290'  FLHLP 
FE1i' FUNKEY 
0032  HDENT 
0030  HDDATA 
0000 HDERRS 
FD89'  HDHON3 
FBAD'  HDIO 
FDA7' HDRD 
FDAB'  HDRW2 


5 


AUTFLG 
B2HEXE 


DSKEND 
DSKSTK 
DTLP1 
DTRNTE 
DVFY3 
DVFY6 
DVFY9 
EXPTIN 
FDCMD 
FDIN 
FORHRT 
FDSTAT 
FIVE12 
FLASH2 
FLHLP1 
GETCUR 
HDCYLH 
HDEND 
HDHOM1 
HDHOM4 
HDLOAD 
HDRDLP 
HDRW3 
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HDRWER 
HDSDH 
HDTEST 
HLD 


PMS610 
PMSGRT 


FDCB' 
0033 


HDRHRT 
HDSEC 


ITR4 

TTRREG 
KBDENA 
KEYECH 
KEYBMK 
KEYNSK 


5-1 


FDEB' 
0037 
FDAO' 
AZED 
0004 
OOF 8 
0032 
0066 
0008 
0010 
F828" 
Fa3F* 
FRAB' 
FBI7" 
0000 
0008 
0009 
0180' 
O4A0' 
FOBS' 
O1ED' 
Fag 
0003 
F9A7' 
O3FE' 
0417! 
0430' 
0476' 
F6OF' 
F705 
F723" 
FFFF 
0230' 
0258" 
0273" 
EFFF 
F636" 
Fest" 
Feac 
0017 
FABZ' 
FASF 
FAS?" 
FeAD' 
Fcs4' 
O21D' 
FOAF' 
O1E7' 
FSCD' 
F494" 
0028 
FBSE' 
A3ED 
O2E2" 
O2FC' 
F000 


PMSGL2 
PROMAD 


No Fatal error(s) 
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PROMPT 
PVTC 
PVTCER 
PVTCR1 
RACMD 
RDCMD 
RDINC 


RETRY | 


ROMBEG 
RFTFLG 
RSTLNO 
RWFIN 


SCSTART 


SELBYT 
SETDLY 
SHIFT 
SIDE! 
SKERR 
SPDLE 
SPEED 
STEPS 
STRSAY 
STUPO 
SYSCHD 
TESTM1 
TIMER 
TIMIRT 
TIMOQUT 
THNSG 
TSTFLG 
TSTPAT 
TVDSK 


TVREGRT 


TYPE10 
TYPE14 
VBFLAG 
VDORDO 
VOONRO 
VERIFY 
VICBAS 
VIccul 
VICERR 
VTCMOD 
VICPT2 
VTCSC1 


VICHAIT 


VTODAT 
WAITLO 
WAITL3 
WAITL4 
WATTL 
WROMD 

WRCUR 
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0000  PRONST 
009D' PVTCI 
FRO4' = FVTCI 
0001  PYTCHO 
0002 RAMRD 
OOAC RDCUR 
F984' REBOOT. 
0002 REVVID 
F440 = ROMSAD 
0000  RSCHD 
0040  RSTNSK 
0000  SCRLOF 
FFA3'  SECNBR 
0007 SELMSK 
FCAL' SETVEC 
037E' SHOW 
0308'  SIGNON 
0003 SLOSTP 
FAAS'  SPDRET 
0004 SPLITS 
FFBB' STKBAS 
FFB3' STKTIM 
FA7i' STUPI 
F77E' . SYSOK 
FFAS' TIMCNT 
FRO8' TIMERI 
FRiZ' TIMITR 
FFA4'  TIMSTK 
FFA1' TRKNBR 
OO8A' TSTLPI 
FCSE' TVCHRT 
FCSD'  TVDSKRT 
FF9B'  TVSTAT 
FDIS’ = §=TYPE12 
FDS46' TYPE1S 
0004 VEIT 
FAZB' YDORD! 
FA36'  VDOWRI 
8000  VFYBUF 
0080 VTCBEG 
0005 YICCUZ 
0122' VICERW 
0132'  YITCOK 
0020 VITCRDY 
0003 YVICSC2 
000D YVTIDAT 
OOEO'  VISTLP 
OOE9' WAITLI 
0155' WAITL4 
O3A2' WAITL? 
FB59' WAITLO 
0005 WRCMND 
OOAB WRINC 


PTOS 
PVTC2 
FUTCRO 
PVTCHI 
RAMHR 
RDERR 
RETCOD 
RNF 
ROMSIZ 
RSERR 
RSTVBL 
SCRLON 
SEL 
SETCUR 
SHF TEN 
SICMD 
SKCHD 
SPDERR 
SPOUE 
STAREG 
STKDSK 
STOP 
SYSBAD 
TESTH 
TINCTR 
TIMEXP 
TIMLP 
THIRET 
TSTDON 
TSTNEM 
TYCOHN 
TVREG 
TYPEI 
TYPE13 
UNINP 
VELANK 
VDORDL 
VDONRL 
VFYERR 
VICCMD 
VICEND 
VICINI 
VTCPTL 
VTCRST 
VICSTA 
VIMODE 
WAIT 
WAITL2 
WATTILS 
WATTLE 
WHDBAS 
HRCP 


E. Boot Sector Listing 


O03A 


9800 
CCO0 
D406 
F200 


FFDB 
FFCE 
FFDI 
FFD2 
FFD3 
FFE 
FFEZ 
FFF3 
FFF4 
FFF9 
FFFC 


0082 
0008 
0058 
0002 
0005 
0080 
0010 
000A 
0002 
000A 
0001 
000A 
0012 


0080 
0082 
0084 
0087 
0089 
008C 
O08F 
0090 
0092 
0095 
0097 
0099 
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20 13 
3A FFDI 
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} 
PBASE 
LOCAL 
STEPS 
FDCND 
SELBYT 
TTRREG 


_ TOREG 


FDRWS 
DSKSEL 
TYPE 
DELAY 


f 
RDCMD 
SBIT 
SICHD 
SIDE1 
SIDE 
BOOT 
SIDLY 
RETRY 
TRKOST 
TRKOEN 
TRRIST 
TRKIEN 
SEC 


f 


BOOTS: 


PAGE 


1 


BOOT SECTOR FOR PIED FIPER 


SENI-TECH MICROELECTRONICS CORF. COPYRIGHT 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


38 


(HSIZE-20)«1024 


09800H 
S400H+BIAS 
CCP+806H 
CCP+1400H 


. COMMON AREA FOR PARAMETERS AND JUMP TABLES IN PROM 


OFFDBH 

OFFCEH + DISK ERROR LOCAL MODE 

OFFDIH ¢ STEPPING RATE OF BOOT DRIVE 
OFFDZH + FLOPPY DISK COMMAND 

OFFD3H + BOOT DISK SELECT BYTE INFORMATION 
OFFEIH 

OFFEZH ¢ I/0 REGISTER 

PBASE+18H + FLOPPY DISK SECTOR READ/WRITE ROUTINE 
PBASE+1BH # DISK SELECT ROUTINE 

PBASE+1EH s FLOPPY DISK TYPE I COMMAND ROUTINE 
PBASE+21H + 1 MS DELAY ROUTINE 

10000010B + FLOPPY DISK READ SECTOR COMMAND 
000010006 s FLOPPY DISK SIDE SELECT BIT 
O1011000B + FLOPPY DISK STEP IN COMMAND 

2 : SIDE SELECT BIT 

J ¢ SIDE INFORMATION BIT 

80H * ORIGIN OF BOOTSTRAP 

16 * 16 M5 DELAY FOR STEP-IN COMMAND 

10 

Z + START SECTOR FOR TRACK 0 

10 + END SECTOR FOR TRACK 0 

l s START SECTOR FOR TRACK 1 

10 + END SECTOR FOR TRACK 1 

12H + SECTOR REGISTER 

BOOT 

Ce TRKOST + START FROM SECTOR 2 

Ey TRROEN ¢ UP TO SECTOR 10 

HL» CCP » SET UP DMA ADDRESS 

AyRDCMD > SET FOR READ 

(FOCHD) vA 

RDSECS * READ IN TRACK 0 SECTORS 

A 

NZBOOTERR 

Ar (SELBYT) + GET SELECT BYTE 

SIDEsA * CHECK IF DOUBLE SIDED 

NZ sDSIDE 

Ay (STEPS) + GET STEPPING RATE OF BOOT DISK 


009C 
0090 
OO9F 
00A0 
00A3 
OOAS 
O0A5 
O0AB 
OOAA 
OOAC 
OOAC 
OOAE 


OOBL - 


00B4 
OOE6 
OOB? 
OOB9 
OOBB 
OOED 
00C0 
00C1 
0004 


0004 
0005 
00064 


0008 
00C8 
OOCA 
o0cC 
OOCE 
0000 
00D2 
0004 
0006 
0008 
OODA 
O00C 
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CD FFFC 
10 FB 
18 OD 


CB D7 
CD FFF 
3A FFDZ 
Fé 08 
32 FFDZ 


OE 01 
1E OA 
CD OODF 
B7 

CA 00C8 


C3 E200 


09-Dec-81 PAGE 1-1 
LD EsA 
LD Ay SICHD ; PERFORM STEP IN IF SINGLE SIDED 
OR E 
CALL = TYPE 
LD By SIDLY + SET TO DELAY 14 MS 
DLYLP? 
CALL DELAY 
DJNZ  DLYLP 
JR RDTRK1 
DSIDE: 
SET SIDELsA + SELECT SIDE 1 
CALL OSKSEL 
LD Ay (FDCMD) + MODIFY READ COMMAND 
OR SBIT 
LD (FDOCHD) A 
RDTRK1: 
LD Cy TRKIST + START FROM SECTOR 1 
LD Ey TRKIEN + END AT SECTOR 3 
CALL  RDSECS + READ IN SECTORS ON TRACK 1 
OR f 
JP ZsBI0S1 + START EXECUTION OF BIOS 
BDOTERR: 
j KEXXAXKKKKAAAKKAKARKEAAKANK AEKKAARAK TREAT 5 
} THE FOLLOWING INSTRUCTION HUS } 
} BE ADDED: ; 
} ; 
; DI } 
j RKXXXXERKKKRAAKERAKERELRAKER LE RKERKRERERERER } 
OT 
HALT + ERROR: CO TO LOCAL MODE 
DW 0 
bios; 
ld ar10h 
out (1)sa 
ld ar44H 
out (O)ea 
ld ar26h 
out (O) 92 
ld aren 
out (O)98 
Ld aréch 
out (Q)9a 
Sp bios 


; 
j AXRAAKAKAN KA RAKAKARAKKAAKA AKA AX AK AAA AKAKAKAKAEAAAAKALAKAAAAARAIX 


RDSECS MULTIPLY SECTOR READ 


E - ENDING SECTOR NUMBER 
HL - STARTING DMA ADDRESS 
OUT; A- TYPE IT STATUS 


; 

; 

; 

; IN? C - STARTING SECTOR NUMBER 
; 

; 

; 

i REG(S) MODIFIED: AyBsCoHoL 
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; 
RDSECS: 


FDRTRY: 


NXTSECs 


RDSRET: 


PAGE 


1-2? 

BsRETRY + SET FOR RETYR 10 TIMES 

HL + SAVE CURRENT DMA 

Arl 

(SECA 

Ay (FDCMD) + GET COMMAND 

FDRHS > READ A SECTOR 

A 

ZyNXTSEC +READ NEXT SECTOR IF NO ERROR 

HL ‘RESTORE OLD DHA 

FDRTRY sRETRY IF ERROR WITHIN 10 TRIALS 

RDSRET 

AF + SYNCHRONIZE PUSH POF 

C ; NEXT SECTOR 

ArE + GET MAXIMUM NUMBER OF SECTOR 

C 

NC eFORTRY +READ NEXT SECTOR IF NOT GREATER 
+ THAN SECTOR SIZE 

A > SET NO ERROR 


MACRO-86 3.44 


Macros: 
Symbols; 

D406 BOOS 
00CB BIOS 
0080 BOOTS 
O0A5 DLYLF 
FFD2 FDCHD 
FFE2 IOREG 
003A  MSIZE 
0082 RDCHD 
OOB9 RDTRKL 
0012 SEC 
0005 SIDE 
FFDI STEPS 
HO0A TRKIEN 


No Fatal error(s) 
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9800 BIAS 
0080 &00T 
CCOO) =O «CEP 
QOOAC DSIDE 
QOOEL  FDRTRY 
FFE1  ITRREG 
QOF3 NXTSEC 
OODF RDSECS 
OOOA = RETRY 
FFD3  SELBYT 
0002 SIDE! 
OOOA TRKOEN 
0001  TRKLST 


PAGE 


§ 


E200 
0004 
FFFC 
FFF4 
FFF3 
FFCE 
FFDE 
OOFA 
0008 
6058 
0010 
0002 
FFF? 


BIOS 
BOOTERR 
DELAY 
DSKSEL 
FDRHS 
LOCAL 
PBASE 
RDSRET 
SBIT 
SICKD 
SIDLY 
TRKOST 
TYFE1 


F. BIOS Listing 


GO0A 
DOOC 
9800 
C000 
D406 
E200 
0004 
0003 
0000 
0001 
0005 
00064 


FFD4 
FFDS 
FFD? 
FFD? 
FFDE 
FFDD 
FFDF 
FFEQ 
FFEI 
FFEZ 
FFE3 
FFES 


FFE? 
FFE? 
FFEA 
FFED 
FFFO 


FFF3. 


FFFA 
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+280 


PADDING 


FMFEED 
BIAS 
CCF 
BDOS 
RTOS 
COISK 
IOEYTE 


_ HARMST 


REBOOT 
SYSCAL 
BDOSAD 


COLNO 
LINEND 


PAGE 


Bape fee ee Soe fake Be 


EGU 


roe fe ope ene Be Aves 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


; 
; 
} 
EQU 
EQU 


SCSTART EQU 


OFFSET 
OFF THF 
VEFLAG 
SWITCH 
HODREG 
TREG 

TOREG 
DMAPTF 
DPBTF 


PBASE 
CONSTA 
CONINF 
HDRK 
HDHCHD 
FDRW 
FOSEL 


EQU 


i 


BIOS FOR CP/M 2.2 


( PIED PIPER VERSION 1,01 ) 


SEMI-TECH HICROELECTRONICS CORP, 


28 3 CFM MEMORY SIZE IN KILOBYTES 


"BIAS® IS ADDRESS OFFSET FROM 3400H FOR MEMORY SYSTEMS 


THEN 14k 


16 

OCH 
09800H 
S40OH+BIAS 
CCP+806H 
CCP+i400H 
0004H 
0003H 
O000H 
O001H 
0005H 
0006H 


nk ee ee a es a ald 


bet ak od 


PADDING 

FORMFEED 

(MSIZE-20)%1024 

BASE OF CCP 

BASE OF BOOS 

BASE OF BIOS 

CURRENT DISK NUMBER O=Ar...915= 
INTEL I/O BYTE 

WARN START VECTOR 


BDOS FUNCTION CALL VECTOR 


COMMON AREA FOR UTILITIES 


OFFD4H 
OFFDSH 
OFFD7H 
OFF DOH 
OFFDBH 
OFFDDH 
OFFDFH 
OFFEOH 
OFFEIH 
OFFEZH 
OFFESH 
OFFESH 


Be ke oe ee ee eo ee lod 


COLUMN NUMBER 

LINE NUMBER 

SCREEN START ADDRESS 
SCREEN OFFSET 

SCREEN TEMPORARY OFFSET 
VBLANK FLAG 

SYSTEM SWITCH 

MODE REGISTER 

I REGISTER 

T/O CONTROL REGISTER 

DISK NUMBER TRANSLATION TABLE 
DISK PARAMETER BASE TABLE 


COMMON AREA FOR SUBROUTINES TABLES IN PROM 


OFFE7H 
PEASE+00H 
FBASE+O3H 
PBASE+O4H 
PEASE+O9H 
PBASE+0CH 
FBASE+OFH 


CONSOLE STATUS ROUTINE 

CONSOLE INPUT ROUTINE 

HARD DISK READ/WRITE SECTOR ROUTINE 
HARD DISK COMMAND ROUTINE 

FLOPPY DISK READ/WRITE SECTOR ROUTINE 
SELECT FLOPPY DISK ROUTINE 


FFF9 
FFFC 


0000 
0008 
0018 
0018 
9003 
0003 
HOR 
0000 


OOFF 
0000 
0000 
0001 
0000 
QO0A 
0000 
0000 
0001 
0002 
6002 
QO0A 
FFFF 
D00A 


0010 
00106 
0010 
0011 
)012 
0013 


O00C 
0010 
O05C 
6082 
QOAZ 


0003 
0007 
0006 
9090 
0004 


0002 
0004 
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FDHCMD 
DELAY 


PTRDAT 
KEYED 

STATUS 
CONTRL 
MAXDSK 
JMPCOD 
RECLEN 
DISKTY 


FDBASE 
FOCMHD 
FDSTAT 
FDOTRK 
FDSEC 
FDDATA 


HOMEFD 
SEEKFD 
oTEPFD 
READFD 
MEITFO 


SIDE 
FDERR 
WRPROT 
SKERR 
RNFERR 


FDISK! 
FOISK?Z 


i-1 


PRASE+17H 
FEASE+15H 


+ 


$ 


LENERAL EQUATES 


QDH 
08H 
dH 
18H 
3 
OC3H 
80H 
) 


t 


t 


? 


4 
¢ 
& 
t 
? 
¢ 


a 
t 
a 
; 


a 
2 


FLAG OFF 


+ FLOPPY DISK TYPE 1 COMMAND ROUTINE 
* DELAY 1 MS ROUTINE 


FARALLEL PRINTER DATA REGISTER 
KEYBOARD REGISTER 


+ STATUS REGISTER 
» CONTROL REGISTER 
+ MAXIMUM NUMBER OF DISK DRIVES SUPPORTED 


JUMP INSTRUCTION CODE 
LOGICAL RECORD LENGTH 


¢ DISK TYPE BIT © = FLOPPY DISK 


1 = HARD DISK 
FLAG ON 


READ OPERATION 
WRITE OPERATION 


a 
$ 
ry 
? 
r3 
t 


CARRIAGE RETURN 
LINEFEED 
END OF LINE INDICATOR 


WRITE TO ALLOCATED 
WRITE TO DIRECTORY 
WRITE TO UNALLOCATED 
SEEK RETRY 

READ/WRITE SECTOR RETRY 


ry 
; 


TIMEOUT VALUE FOR LIST 


+ TV COUNTER 


FLOPPY DISK FARAMETERS 


10H 

FDBASE+0 
FDBASE+0 
FDBASE+1 
FDBASE+7 
FOBASE+3 


O0001100E 
000111006 
OLO1L1008 
100000106 
1O1000108 


3 
7 
é 
1 
4 


500000108 
Q0G001 006 


Be ek oR i oad 


be es en oll od 


FLOPFY CONTROLLER BASE ADDRESS 
FLOPFY CONTROLLER COMMAND REGISTER 
FLOFFY CONTROLLER STATUS REGISTER 
FLOPFY CONTROLLER TRACK REGISTER 
FLOPFY CONTROLLER SECTOR REGISTER 
FLOPPY CONTROLLER DATA REGISTER 


FLOPPY DISK HORE COMMAND 

FLOPPY DISK SEEK COMMAND 

FLOPPY DISK STEP IN COMMAND 
FLOPPY DISK READ SECTOR COMMAND 
FLOPPY DISK WRRITE SECTOR COMMAND 


+ FLOPPY DISK COMMAND SIDE EIT 


4s 
: 


a 
$ 


a 
¢ 


+ FLOPPY DISK ERROR 
* WRITE PROTECTED 
00100008 


SEEK ERROR 


SoD: 49 TRACKS 
D5DD» 40 TRACKS 


0008 


0002 
000A 
6001 
0002 


0030 
0030 
0031 
0033 
0034 
0035 
0036 
0037 
0037 


0010 
9020 
0030 


0020 
0007 
0007 


0003 
0005 


0006 
0001 
0002 
0003 
0004 
0005 
0006 


0005 
0004 
O00E 
0000 
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FDISK3 


TREOST 
TREOEN 
TRELST 
TRELEN 


HDBASE 
HDDATA 
HDFRCN 
HOSEC 
HDCYLL 
HOCYLH 
HDSEL 
HOCHD 


_ HOSTAT 


HOWEHD 
READHD 
HRITHD 


PRECMP 
HEAD 
HDERRZ 


HDISKL 
HDISK2Z 


SELFA 
SELFE 
SELSID 
FTRSTR 
KEDINT 
PRINT 
HDINT 


PTRESY 
KCAPLK 
INTREQ 
INTRPT 


ie 


000010008 : DSDD, 80 TRACKS 


WARM EOOT PARAMETERS 


+ WARM EOQOQT START SECTOR ON TRACK 0 
> WARM BOOT END SECTOR ON TRACK 0 
+ WARM BOOT START SECTOR ON TRACK 1 
+ WARM BOOT END SECTOR ON TRACK i 


a 
<n 
~~ Cd ban od Sep 


HARD DISK PARAMETERS 


30H + HARD DISK CONTROLLER BASE ADDRESS 
HDBASE +9 + HARD DISK DATA REGISTER 

HDBASE+1 + HARD DISK PRECONPENSATION REGISTER 
HDBASE+3 + HARD DISK SECTOR REGISTER 

HDBASE+4 > HARD DISK CYLINDER HIGH BYTE REGISTER 
HDBASE+S + HARD DISK CYLINDER LOW BYTE REGISTER 
HDBASE+A * HARD DISK SECTOR/HEAD/DRIVE REGISTER 
HDGASE+7 * HARD DISK COMMAND REGISTER 

HDBASE+7 > HARD DISK STATUS REGISTER 

000100006 + HARD DISK RESTORE COMMAND 

001000008 > HARD DISK READ COMMAND 

GO110Q000B + HARD DISK WRITE COMMAND 

20H + HARD DISK PRECOMPENSATION VALUE 
QOOOG111E + HEAD SELECT 

7 > HARD DISK ERROR 

QO000011B + OME HARD DISK 

HOQOO1O1E + LOMB HARD DISK 


CONTROL REGISTER BIT ASSIGNMENT 


SELECT FLOPFY DRIVE A 
SELECT FLOPPY DRIVE B 
SELECT FLOPPY SIDE 
PRINTER STROBE 

KEYBOARD INTERRUPT MASK 
PRINTER INTERRUPT HASK 
HARD DISK INTERRUPT MASK 


A he te Be lSehe eee 


Oe on be oo he &S 


STATUS REGISTER BIT ASSIGNMENT 


a s PRINTER BUSY 
4 + KEYBOARD CAPITAL LOCK 
QOOOO111OB + INTERRUPT REQUEST ID 


0 + INTERRUPT REQUEST 


0000 
0001 


0000 
000 
9001 
0001 
0002 
003 
0004 
0005 
0006 
0007 
6000 
OO1C 
0010 


$000 
OOAE 
OOBB 
OOAA 
OOAC 
O0A4 
004C 
0030 
0031 
0030 
0029 
0028 
6040 


0044 
0032 
000C 
OOAA 
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PROMPT 
TY 


VICBASE 


VICINI 
VICSTA 
VICCHD 
VTCSC1 
VICSCZ 
VICCUL 
VTCCUZ 
VICFT1 
UTCPT2 
VTCINE 
VICDAT 
VICHOD 


RESET 
WRINC 
WRCP 
WRCUR 
ROCUR 
RDPT 
HODE 
ONDICU 
ONCUR 
OFFCUR 
ONDIS 
OFFDIS 
RSTFLG 


PAGE 


? 


EQU 
EQU 


3 
: 


1-3 


SYSTEM SWITCHES 


0 
1 


> PROMPT SUPPRESS 
+ TV/MONITOR 


+ PROGRAMMABLE YIDEO TIMING CONTROLLER PARAMETERS 


a 
f 


> REGISTER ASSIGNHENTS 


4 
$ 


+ PUTC COMMANDS 


3 


s 
$ 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


00H 

VICBASE+00H 
VTCRASE+01H 
VICBASE+O1H 
VICBASE+02H 
VICBASE+93H 
VICBASE+04H 
VICRASE+0SH 
VICEASE+06H 
VTCEASE+O7H 
VICBASE+ODH 
VICBASE+1CH 
VICBASE+1DH 


000000005 
LOLO1OLIE 
LOLLIOLIE 
LOLOLO10E 
101011008 
101901008 
OL001100E 
OOLILIOIE 
OOLLOOOLE 
OO110000E 
001010016 
O01010008 
010000008 


+ INITIALIZATION REGISTERS 


$ 


EQU 
EQU 
EQU 
EQU 


OLO00100E 
001100108 
QO00011 008 
101010106 


ba ok Ee ke ek in ok Ee o_o ie oo 


ee ee i et i ee oe te oe Oe ote 


INITALIALIZATION REGISTER 

STATUS REGISTER 

COMMAND REGISTER 

SCREEN START REGISTER LOWER BYTE 
SCREEN START REGISTER UPPER EYTE 
CURSOR REGISTER LOWER BYTE 
CURSOR REGISTER UPPER BYTE 
POINTER REGISTER LOWER BYTE 
FOINTER REGISTER UPPER BYTE 
INPUT DATA REGISTER 

OUTFUT DATA REGISTER 

MODE REGISTER 


MASTER RESET 

WRITE AT CURSOR AND INCREMENT 
WRITE FROM CURSOR TO POINTER 
WRITE AT CURSOR 

READ AT CURSOR 

READ AT FOINTER 

MODE REGISTER 

TURN ON CURSOR & DISPLAY 
TURN ON CURSOR 

TURN OFF CURSOR 

TURN ON DISPLAY 

TURN OFF DISPLAY 

RESET FLAGS 


0017 
O04F 
0009 
0029 


0080 


0010 
0097 


0000 
0001 
0002 
0003 
0004 
0005 
0004 
0007 


0005 
0004 
003 
0002 
$080 
0018 


0080 
O7FF 


0020 
O07E 
0037 
0038 
0039 
0030 


0050 
0017 
0028 
0028 
0005 
OO1D 
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TR4 
TRS 
TR4 
TR? 
TK8 
TRY 
Irie 


COL40 
RVERSE 
HGHINT 
GRAPHIC 
INTLCE 
BHSCN 
BLOCK 
BEEF 


RDYFLG 
VELANE 
LINE 
SPLIT 
FORGND 
INTHSK 


STADR 
ENDADR 


MAXCOL 
MAXLIN 
MAXTUC 
MAXOFF 
MARGIN 
WIOTH 


PAGE 1-4 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


a 
2 


: HODE RECISTER 


$ 


EQU 
EQU 
EQU 
EQU 
EQU 
EGU 
EQU 
EQU 


; 
+ FLAGS 


$ 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


: ADDRESS 


? 


EQU 
EQU 


a 
$ 


+ CONSTANTS 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


OO0101118 
OLOOLI1IE 
O00010018 
OO01010018 
100000005 
000109008 
LOOLOL11IE 


EIT ASSIGNHENT 


0 » 40 COLUMN 

1 + REVERSE VIDEO 

2 + HIGH INTENSITY 

3 + GRAPHIC 

4 * INTERLACE 

rs) * BLACK & WHITE SCREEN 

| + BLOCK 

7 ¢ ALARM SOUND 

rs) > PYTC READY FOR COMMAND 

4 § VELANK FERTOD 

3 * LINE ZERO 

é + SPLIT SCREEN 

100000008 + FOREGROUND CHARACTER BIT 

900110008 * VBLANK & LINE 0 INTERRUPTS 

OB0H + SCREEN START ADDRESS 

7FFH : SCREEN END ADDRESS 

20H 

7EH 

37H 

38H 

39H 

30H 

80 + MAXIMUM COLUMNS PER ROH 

23 > MAXIMUM ROW - 1 

40 + MAXTHUM TV COLUMNS FER ROW 
> SCREEN OFFSET FOR TV 


MAXCOL-MAXTVC 
x) SCREEN WINDOW MARGINS 
MAXTVC-HARGIN-MARGIN-1 


or 
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+ OFFSET BETWEEN LEFT & RIGHT LIMITS 
ORG BIOS 
} JUMP VECTOR FOR INDIVIDUAL SUBROUTINES 
? 
E200' = C3: E378" JF BOOT +COLD START 
E203' C3 E3E2' HEOOTE: JP WEOOT +HARK BOOT 
F206' C2 E4A8' JP CONST sCONSOLE STATUS 
F209’ C3 E4E4' JP CONIN #CONSOLE CHARACTER IN 
E20C' C3 E59D' JP CONOUT SCONSOLE CHARACTER OUT 
E2Z0F’ (3 EBSB' JP LIST $LIST CHARACTER OUT 
E2Ziz' C3 ERE?’ JP PUNCH sPUNCH CHARACTER OUT 
E2i5' 3 EBES' JP READER *READER CHARACTER OUT 
E218' (3 EBER' uF HORE ‘MOVE HEAD TO HOHE POSITION 
EZ1B' (3 EBFO' JP SELDSK POELECT DISK 
E21E’ C3 EBEB’ JF SETTRK sSET TRACK NUMBER 
E22i' C3 EC82' JP SETSEC *SET SECTOR NUMBER 
224" C3 ECS! JP SETDMA sSET DMA ADDRESS 
E227‘ C3 ECBI' JP RDDISK *READ DISK 
E2Z2A' C3 EC9F' JF WRDISK :WRITE DISK 
E22D' C3 EBS4! JF LISTST #RETURN LIST STATUS 
E230' 3 EC@7' JF SECTRAN sSECTOR TRANSLATE 
$ 
mm : LOGICAL TQ PHYSICAL DISK TRANSLATION TABLE 


E233' O02 FF FF FF DSKMAP: DE 29 OFFHyOFFHs OFFH 
' 
, DISK PARAMETER HEADERS FOR UP TO 5 TYPES OF ON-LINE DRIVES 
; DISK PARAMETER HEADER FOR DISK 00 
t J° SINGLE-SIDED: DOUBLE-DENSITY: 40 TRACKS 
$ 

E237' E29" 0000 DPBASE: DW TRANSO»0000H 

F23B' 0000 0000 : DW 0000H:0000H 

E23F' FOCZ2* E2C4' DW DIRBF » DPBLKO 

E243’ 3 =F294' F142" DW CHKO0sALLOO 

E247! ESIF' E30F' DW DISKO TAEO 
} 
} DISK PARAMETER HEADER FOR DISK 01 
' v° DOUBLE-SIDED: DOUBLE DENSITY: 80 TRACKS 
t 

EZ4B' = E29B' 0000 Dk TRANSOs0000H 

EZ4F' 0000 0000 DW 0000H?0000H 

E253' = FOC2' E2D3' DW DIRBF »DPBLK1 

E257' F2A6' F1L4E' DH CHKO1rALLOL 


E258" 


Zar ' 
£263" 
F267 ' 
EZ SB! 
i 


E287" 
E28B" 
EZBF' 
E293" 
E297" 


E29B! 
E29C' 
EZA0' 
EZA4' 
EZAR' 
EZAC' 
EZBO' 
EZB4! 
EZB8" 
EZBC 
EZC0' 
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E3ZA' ES0F’ 


EZFB 0000 
0000 0000 

FOC2' E2E?’ 
F2EA' FL?F’ 
E330' EOF! 


0000 0000 
0000 0000 
FOC2' E2F1' 
0000 FLEQ' 
E340’ E317! 


0000 0000 
C000 0000 
FOC2' £300" 
0000 FIFD' 
E34" E317! 


E oC 


3 24 


PQ eb be eS eS PQ et eS ee OP 
cn ao £9 om On oe OO ome Oe OS 
| ne) I scoscetll see => OO ee Oo ta 20 
PM & MT Ke Pr wD psa hm Pa 
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DISKis TARO 


DISK PARAMETER HEADER FOR DISK 02 
S* DOUBLE-SIDED» DOUBLE DENSITY: 80 TRACKS 


TRANSO» OOOOH 
Q000H»0000H 
DIREF »DPBLK2Z 
CHRO2 sALLO2 
DISK2» TARO 


DISK PARAMETER HEADER FOR DISK 03 
J ME WINCHESTER HARD DISK 


O000H» 0O00H 
0O900H»0000H 
DIREF sDFELKS3 
G000H*ALLOZ 
DISKS: TABS 


DISK PARAMETER HEADER FOR DISK 04 
16 ME WINCHESTER HARD DISK 


0000H?00G0H 
DO00H:0000H 
DIREF rDFBLK4 
D000H»ALLO4 
DISK4s TABS 


SECTOR TRANSLATION TABLE FOR 5° DOUBLE DENSITY 


49 + LAST SECTOR ON DISK 
Le2rde4 + SKER FACTOR = 7 
FriOeilet2 

17918 :19926 

faredér2e7 928 

33234932936 

ar9798 

Larl4ri514 

els22223924 

29730931932 

37738239940 


DISK PARAMETER BLOCK FOR 5" SINGLE-SIDED DOUBLE DENSITY 
Jl2 BYTES/SECTOR: 10 SECTORS/TRACK? 40 TRACKS 
2 SYSTEM TRACKS 
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E2C4' = 002 DPBLKO; DH 40 > SECTORS FER TRACK (SPT) 
EZt4' 04 DE § + BLOCK SHIFT FACTOR (BSH) » BLS = 2048 
E207* OF DE 15 + BLOCK MASK (ELM) 
E2C8' a1 DE 1 + EXTENT MASK (EXM) 
Fe?! = Q05E DH 94 + DISK SIZE-1 (DSM) 
ZCB' — 003F DH 63 + DIRECTORY MAX (DRM) 
E2CD' 8 DE 128 > ALLOC 9 (ALO) 
EZCE’ 00 DE QO + ALLOC 1 (ALI) 
EZCF* 9016 DW {6 + CHECK SIZE (CKS) 
EZD1' 6002 DW 2 + RESERVED TRACKS (OFF) 


; DISK PARAMETER BLOCK FOR 5° DOUBLE-SIDED DOUBLE DENSITY 
} a2 BYTES/SECTOR: 16 SECTORS/TRACK: 80 TRACKS/SIDE 
‘ 2 SYSTEM TRACKS 


E2D3' 9028 DPELKi: DW 4G 

E2D5' 94 DE § 3 BLS = 2048 
E2D4' OF DE 15 

E207" =—-00 DE i) 

E2D8' O18 DH 394 

EZDA' = D07F | DW 12? 

F2DC' £0 DE 192 

EZDD' = 90 DE 0 

EZDE’ 0040 DH 64 

EZE0' 9002 DW Z 


t 
} DISK PARAMETER BLOCK FOR S* DOUBLE-SIDED DOUBLE DENSITY 
; vl2 BTYES/SECTOR, 10 SECTORS/TRACKs 80 TRACKS/SIDE 

; 3 SYSTER TRACKS 

? 


EZE2' 0028 DPBLK2: Dk 40) 

EZE4' 04 DE 4 + BLS = 2048 

EZES' OF DE 15 

EZE6' 4 DE 0 

EZE7' 0187 DH 71 

EZE?' OFF Du 20 

EZER' FQ DE 240 

EZEC' — 00 DE 0 

EZED' 9040 DW 64 

EZEF' 9003 DW 3 
f 
; DISK PARAMETER BLOCK FOR S MB WINCHESTER HARD DISK 
; vlZ BYTES/SECTOR: 16 SECTORS/TRACKs 134 TRACKS? 4 HEADS 
} 

E2F1' 0040 DPBLK3; DW 64 

EZF3' 06 DE & + BLS = 8192 

E2F4' =F DE 63 

E2FS' 93 DE 3 


E2Fé' 0265 DW 13 
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E2FS' O3FF DW 1023 
E2FA' FQ DB 24) 
EZFE' 00 DE 0 
EZFC' ©9000 DW 0 
E2FE’ 0002 DW Z 
; DISK PARAMETER BLOCK FOR 3 MB WINCHESTER HARD DISK 
} wiz BYTES/SECTOR,: 16 SECTORS/TRACKy 134 TRACKS: 4 HEADS 
F300" = Q040 DPBLE4: DW &4 
E202’ 4 DE 6 3 BLS = 8192 
E303' SF DB 63 
E304' 023 DE 3 
ES0n' = G4C2 DH 1218 
E307' = O7FF DH 2047 
E309' = FF DE Zag 
E30A' 00 DE 0 
ES0B' 0000 DW 0 
E30D' = 9002 DW 2 
} 
; FLOPPY DOUBLE DENSITY TABLE 
# 
E30F* 9200 TABO; = DH olZ + HOST BUFFER SIZE 
~~ — —« ERL' 0800 OW 2048 = +: HOST ALLOCATION BLOCK SIZE 
a E313’ 04 DE 4 3 CP/M SECTOR PER HOST BUFFER ( HSTELK ) 
E314 = =28 DE 40 + LOGICAL SECTOR FER TRACK 
E3is' §=693 DE 3 3 SECTOR MASK ( HSTBLK - 1 ) 
a , DE 2 + LOG2( HSTBLK } 
; HARD DISK TABLE 
? 
E3i7' 0200 TABS; DK wz 
E319?' 2000 DH 8192 
ESiB’ = 04 DE 4 
E31C' = 40 DE 64 
E31D' = 3 DE 3 
ESIE' 02 . DE z 
’ 
; CURRENT VALUES FOR THE 3 DISKS 
? 
ESF’ = 2 DISKO; DE 000000108 + FLOPPY DISK SELECT BYTE 
| + BIT 2 = SIDE 
: BIT 1 = SELECT FLOPPY DRIVE 6 
+ BIT 0 = SELECT FLOPPY DRIVE A 
E320’ 0200 DW ul2 s SECTOR SIZE 
E322’ = 93 DE 3 + STEPPING RATE 
E323’ = 01 DE 1 * SIDES 
E324' 02 DE FOISK1 + DISK TYPE 
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E375' 9000 DW 0 ; LAST TRACK ACCESSED 
E327' 0A DE id + PHYSICAL SECTORS/TRACK 
E328' 0028 DW 4g + CYLINDERS 

E327A' = 02 DISKi: DE 000000108 

32B' 0200 DH 512 

F227D' = 0 DE 0 

E32E' 9? DE 2 

ES2F' 04 DE FDISK? 

E330' 0000 DW ") 

F332' 0A. DE 10 

F333' 9050 DW 80 

335° 04 DISK?: ODE OO0DOOC1E 

E336’ = 9200 DW 51? 

E338' 00 DE 0 

E339' = 02 DE 2 

F33A' 08 DE FDISK3 

E33E' ©0000 DW 0 

F33D' 0a De i0 

E33E' 9050 DW a0 

F340' = 20 DISK3! DE 001000008 + HARD DISK SELECT BYTE 

; BIT7 =9 


+ BIT 695 = SECTOR SIZE 
+ BIT 4 - 3 = DRIVE 
+ BIT 2 - @ = HEAD 


ES41' = 9200 DH nig 
ES43' 98 DE 4H + 3 M5 
ES44' 04 DR 4 
E345' = 43 DE HDISKI 
E346’ = GO00 DH 0 
E348" = 1 DE 1é 
ES49' = 009A Du 134 
ES4k* 29 DISK4: DE 001000008 + HARD DISK SELECT BYTE 
+ BIT 7 = 9 
> BIT 675 = SECTOR SIZE 
+ BIT 4 - 3 = DRIVE 
> BIT 2 - 0 = HEAD 
E340’ = 0200 DW v2 
E34E' = 04 DE 04H > 3 M5 
ES4F’ 04 DE 4 
E350" 05 DE HDISK?2 
E351' 0000 DW 0 
E353' 10 DE 16 
E34 (OL31 DW 305 
} 
: END OF FIXED TABLES 
t 
E356’ 30 30 4B 20 DE OOK | 
E35A' 43-30 2F 4D SIGNON: DE ‘CP/M vers 242 (STM REL. 1,01)'sEOL 


ESSE’ = 20 76 65 72 
E3462' = 73 20 32 2E 


E366" 
E36A' 
EQsE' 
E972’ 


E376! 


E378" 
E37A' 
E70’ 
ES7F' 
E389" 
E382" 
E383" 
E383" 
£388" 
E389 ' 
E386 
E38C’ 
E38E' 
E390! 
E393" 
E396 
E399" 
ESPA' 
E39C' 
E39E' 
ES9F ' 
ESAL ' 


E3A3' 
ESA4' 
ESA7' 
E3AA' 
ESAD' 
ESB" 
E3E3' 
ESB6' 
ESB?! 
ESEC' 
ESEF ' 
E3C2' 
F305! 


E3C8' 


MACRO-BO 3,44 


ha 

a ry my i 
Tl <> oo 

mo on 

m Pa oo 


fad Pal Ped fo 
5 4 


Pa C.J whe 1 623 
ash 
tad Py 
foseste 


Oe ee 
n> fh. de wn 


gE 20 
D3 iC 
21 0089 
7D 


09-Dec-81 


BOOT: 
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1-10 


INDIVIDUAL SUBROUTINES TO PERFORM EACH FUNCTION 


COLD EOOT 


FARAMETER INITIALTZATION 


ArsBLANK 
(UTCDAT) +A 
HL» STADE 
ArL 
(YTCCUL) 2A 
ArH 
(VTCCUZ) A 
HL» ENDADR 
ArL 
(VTCFT 1) 24 
AH 
CVTCFTZ) A 
As WRCF 
WAIT 

HL STADR 


(SCSTART) »HL 


ArL 
CVTCCUL) 9A 
(VICSC1) 2A 
ArH 
(VTCCUZ) 9A 
(VTCSCZ) 2A 


A 
(IOBYTE) 2A 
(CDISK) 2A 
(SWITCH) vA 
(COLND) sA 
(COLNO+1) 2A 
(LINENO) 2A 
(OFFSET) A 


(OFFSET+132A 


HL» DSKMAP 
(DHAPTP) HL 
HL» DPEASE 
(DPBTP) HL 


HL rSIGNON 


; 


ts Be 


ee a Se. er 2 


eo 


CLEAR SCREEN 


SAVE SCREEN START ADDRESS 


CLEAR THE IOBYTE 
SELECT DISK ZERO 
CLEAR SWITCHES 

SET TO COLUAN 9 


SET TO LINE 9 
SET SCREEN OFFSET TO 0 


GET UF DISK TRANLATION TABLE ADDRESS 
SAVE VAUE 

POINT TO DISK PARH BASE 

SAVE VALUE 


FRINT SIGN ON MESSAGE 


ESCB' 


ESCE ' 


ESD1' 
E3D2’ 
E303" 
E3D4' 
E305! 
F3D6' 
E3D?' 
ESDA' 
ESDE' 
E3DC’ 


ESDE' 


E3DF' 
ESE" 
E3E1' 


ESE2' 
ESES' 
FSE/' 


ESE" 


ESEB! 
ESEE' 
ESFQ! 


ESF 3! 


ESF a! 
ESF?" 
ESFS' 
ESFE' 


ESFD' 
ESFF’ 
E401' 
E404" 


NACRO-80 3.44 


CD E3Di' 


C2 E454! 


FS 
CS 
ES 
7E 
AF 
CD ES9D" 


? 
Faw) 


3A FFEI 
ED 47 
FE 


31 0080 


34 FOA7" 
FE FF 
CC EDAS' 


16 OA 


OE 00 
uo 

CD EBFO' 
38 4C 


OE 02 
1E OA 
21 CC00 
3E 82 
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PMSG: 


PMSGI; 


WEOOT: 


HEOOTL: 


FAGE 


CALL 


JF 


A) ol ol et oe i ode oll od oN a 


1-11 


PHSG 


COCPH + INITIALIZE AND GO TO CP/M 


TQ PRINT OUT A MESSAGE 
TNs HL = ADDRESS OF MESSAGE 


QUT: NONE 
CHANGED; NONE 


CoA + GET BYTE FROM MESSAGE 
> SEND BYTE QUT 


As {HL} > CHECK IF END OF MESSAGE 


WARM BOOT 


Ar(TREG) + GET I REGISTER VALUE 
TA + SET I REGISTER 
+ ENABLE INTERRUPTT 


SP 80H + SET STACK POINTER 

Ar (BUFACT) + CHECK IF BUFFER ACTIVE 
— + FLUSH BUFFER 

DrRETRY + SET WARM BOOT RETRY COUNT 


SELECT DRIVE 0 


C19 > SELECT DISK 0 

ErC + RESTORING DISK 0 
SELDSK 

CyWBERR # SELECT ERROR» RETRY 
Co TREOST + READ TRACK 0 

Er TRROEN 

HL » COP 3 LOAD AT CCP 

Ar READFD + GET READ COMMAND 
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E406' 32 FOAD' LO (DSKCHD) 2A ? SAVE COMMAND 
E409' CD E486! CALL RDSECS > READ SECTORS 
E40C' 38 3B Jk CrWBERR + READ ERROR: RETRY 
ES0E' = 3A FOBZ' LD As (SIDES) » GET NUMBER OF SIDES 
E4ii° FE Oi CF 1 + CHECK IF SINGLE-SIDED 
ES13' 920 OE JR NZ» THOSID > NO» DOUBLE-SIDED 
E41a' = 3A FORL' LD Ay (STEPS) + GET STEPPING RATE OF BOOT DISK 
F418’ Fé SC OR STEFFD > PUT INTO STEP IN COMMAND 
FSA’ CD FFF CALL  FDHCMD + STEP IN 
E41D' £6 9 AND SKERR > CHECK IF ERROR 
E41F’ = 20 28 JR NZ »WBERR » ERRORy RETRY 
E421" 18 19 JR RDTRKI » READ TRACK 1 
E423' 3A FOAE' TWOSTD: LO Ar (SELBYT) + GET SELECT EYTE 
E426 CE D? SET SELSIOsA + SELECT SIDE i 
E428° CD EDDA' CALL =  ©DSKSEL 
E42R' SA FOAD' LD —Ar(DSKCMD) * MODIFY READ COMMAND 
f2E' CB DF SET SIDE sé 
E430° 32 FOAD' LD (DSKCME) #4 
F433' = OE 0 RDTREL: LOD CyTRKIST > READ TRACK 1 
E435' 16 02 | LD Ey TRELEN 
E437' CD E48e' CALL © RDSECS > READ SECTORS 
E43A' 38 OD JR CrHBERR + READ ERROR: RETRY 
E43C' = AF XOR A 
E430’ = 32 CCO7 LD (COP+79 9A > CLEAR AUTO EXECUTION 
E440" = 2A FOBC' LD HL» (LSTADR} * GET LAST TRACK ADDRESS 
E443' 34 01 LD (HL) +4 + UPDATE LAST TRACK 
Ea 2S INC HL 
F446" 77 LD (HL) 2A 
E447" 18 OB Jk GOCPH 
E449") 15 WBERR? = DEC D > WARM BOOT ERROR 
ES4h' 20 AP Jk NZ eWEOOTI 
E440" 21 EFED? LD HL» ERNSGS 
E44F’ = CD ESD1' CALL = PSG 
E4a2' Fa DI 
E4s3' = 74 HALT > HALT 
' 
} SET UP VECTORS 
$ A= 
E454° 21 FOSD' GOCPM: LD HL yWRTYPE » INITIALIZE DATA AREA 
E457' 06 il LD Bel? 
eh) ae es LOOFO; LO (HLA 
EASA’ 23 INC HL 
FASB’ =. 16 FC DUNZ  LOOFO 
E45D' 01 FFFF LD BCs TINING 


E460' = ED 43 F576" LD (TIMER) 2BC + INITIALIZE LIST DEVICE TIMER 


E464! 
E466 ' 
E449! 
E44C' 
E46F' 
E472" 
47a 
£478! 
E476" 
Ea7E' 
E481" 
E484" 
E487" 
£488" 


E486 ' 
E480" 
E48E’ 
ESBF 
E491 ' 
£494! 
E497" 
F498" 
E494" 
E498! 
E490" 
EA9E' 


E4A0' 
E4A1' 
E4A2' 
E4483! 
E4A4' 
E486 ' 


ESA?! 


E488! 
E4AB' 


NACRO-80 3.44 


JE C3 
32 0000 
21 E203' 
22 0001 
32 0005 
21 04064 
22 9006 
Zi OEZD' 
22 FAFE 
O1 0080 
CD ECS?" 
3A 0004 
AF 

C3 CCO0 


04 OA 
ES 

79 

D3 12 
3A FOAD' 
CD FFF3 


3A FFDF 
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RDSECS: 
RDSTRY: 


NXTSECs 


RDSRET: 


CONST: 


Sk od i ks ie od 


LD 


1-13 

As UMPCOD + GET JUMP INSTRUCTION 

(WARNST) 2A + SAVE IN WARM START VECTOR 

HL »MBOOTE + POINT TO WARM BOOT ENTRY POINT 
(REBOOT) 2 HL 

(SYSCAL) 9A + SET UP SYSTEM CALL VECTOR 

HL »ED0S * POINT TQ BDOS ENTRY POINT 
(BDOSAD} » HL 

HL» SHLEAD-BIOS 

COFAFEH) 2 HL 

BC »80H > DEFAULT DMA ADDRESS IS 80H 
SETDMA 

Ay (CDISK) > GET CURRENT DISK NUMBER 

CA » SEND TO THE CCF 

CCF ? GO TO CP/M FOR FURTHER PROCESSING 


MULTIPLY SECTOR FLOPFY READ 
IN} C = STARTING SECTOR NUMBER 

E = ENDING SECTOR NUMBER 

HL = STARTING DHA ADDRESS 


QUT; 4 = TYPE II STATUS 
CARRY ON = ERROR RETURN 
CHANGED; ArBsCrHel 
BeRETRY + GET RETRY COUNT 
HL + SAVE CURRENT DHA 
Arf + SET SECTOR REGISTER 
(FDOSEC) 4 
Ar(DSKCMD) + CET READ COMMAND 
FORW + READ A SECTOR 
A 
ZsNXTSEC + NO ERROR: READ NEXT SECTOR 
HL : ERROR: RESTORE OLD DHA 
RDSTRY + RETRY 
+ SET CARRY FLAG 
RDSRET + RETURN 
AF + SYNCHRONIZE PUSH FOF 
C + INCREMENT TO SECTOR 
ArE + CHECK IF WITHIN LIMIT 
C 
NC rRDSECS + YES: READ NEXT SECTOR 


> CLEAR CARRY FLAG 


GET CONSOLE STATUS 
A = OFFH: CHARACTER READY 
= Q00H» CHARACTER NOT READY 


Ar (SHITCH) 


E4E4' 
EAE?" 
E4E8" 


E4EA' 
ESED' 
E4EE' 
ESEF ' 


E4FO' 


ESF 3! 
EAFS' 
ESF? ' 
ESFA' 
ESFR? 


HACRO-B0 3.44 


S30 CAG! 
wi PSE 


CO E5/70° 


CO ES0A' 
30 D1 
38 92 


AF 
cg 


é F578! 
E Ol 

2 FQ32! 
9 


CD E4A8' 
E7 
28 FA 


2A FQ34' 
7E 


32 FO3Z' 
B7 
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CONSTS: 


CONSTI: 


CONST2: 


CONTIN: 


CONINZ: 


RET 


a es oll os De od 


te le 


TWrA 
2CONST3 

As (COUNTER) 
A 

2 CONST3 

A 
(COUNTER) 9A 
2s SCNUPE 


Ay (KEYSW: 
ON 


? 
i 


As (CHRONT 


A 

Ar QFFH 

NZ 

CONSTA 

NC sCONSTI » NO INFUT 

Asa + CHECK FOR FUNCTION KEYS 
ZeCONST? + NOT FUNCTION KEY 

TNFUNC + PROCESS FUNCTION KEY 

NC sCONST + FUNCTON KEY TRAPPED 
CrCONST?2 

A + NO CHARACTER 

(CHREUF } 9A + SAVE CHARACTER 

Ari s TURN ON CHARACTER SWITCH 
(CHRONT) 9A 


> CHECK IF TV IS ON 
* IGNORE IF NOT 


GET CONSOLE CHARACTER 
A = CHARACTER 


CONST + CHECK FOR CHARACTER 
A 
ZCONIN 


HL» (BUFADR) 


(BUFADR) HL 
Ay (CHRCNT) 
A 
(CHRONT) 2A 
A 

NZyLOOP2Z2 


E4FD' 
£500" 
E203 ' 
F505! 
E508’ 
E509" 


NACKO-80 3,44 


CD Eni! 
18 iC 


Eg 
0 
CB E556! 
18 13 


FE 39 
20 94 


AF 
32 FFD? 


18 09 


FE 30 


09-Dec-81 


LOOF 


th 
3 


TNFUNC: 


INGA: 


INO?; 


INGE: 


INO?; 


INRET; 


TNRETI: 
INRET2: 


PAGE 


bie ok oe es oD 


PUSH 


1-15 


HL »>CHRBUF 
(BUFADR) »HL 
Ar TVCNT 
(COUNTER) A 
AF 

+ RETURN 


PROCESS FUNCTION KEYS 
A = CHARACTER 


AF 
As (SWITCH) + CHECK IF TY SWITCH ON 
TVrA 
Zo INRET1 + NOy RETURN 
AF 
Ash + CLEAR HIGH BIT 
COLFH > CHECK IF COLUMN SCROLL FORWARD 
NZ: INO7 
COLFOR + COLUMN SCROLL FORWARD 
INRET + RETURN 
COLEW + CHECK IF COLUMN SCROLL BACKWARD 
NZ INOB 
COLECK + COLUMN SCROLL BACKWARD 
INRET + RETURN 
LEFT ; CHECK IF SCROLL LEFT MARGIN 
NZ INO? 
fi 
(OFFSET) +A : SET SCREEN OFFSET TO BEGINNING 
INRET + RETURN 
RIGHT + CHECK IF SCROLL RIGHT MARGIN 
NZ» INRET? 
A» MAXOFF 
(OFFSET) 94 + SET SCREEN OFFSET TQ END 
A 
+ RETURN 
AF 
7oA 


: 
> TY SCREEN COLUMN SCROLL FORWARD 


t 


Ln 
tr 


mae 
Ln on on 


a es | 


oa ~~ 


boat’ 
BOSE’ 
E560" 
E563! 
E56" 


E567" 
ES6A' 
E56C' 


ESO’ 


E570" 
E571" 
E74! 
Fo7o' 
F578" 
ES7A' 
E576" 
Eo7C' 


ES7E° 
ES7F' 
E580" 


E582 ' 
F583" 


MACRO-B0 3,44 


3A FFD? 
FE 28 
28 0A 


Eé Fa 
C4 98 


FE 28 
38 92 


3E 28 


32 FFD 
C9 


3A FFD? 
B? 


28 13 


Eé 07 
29 97 
SA FFD 
D& O08 
18 05 


3A FFD? 
Eé FG 
az FFD? 


C9 


CS 
3A FFD4 
47 
3A FFD 
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COLFOR: 


COLFRT; 


COLECK; 


COLEK1; 


COLBK2; 


COLERTS 


SCNUPD: 


PAGE 


LD 
RET 


1-16 


Ar (OFFSET) 
MAXOFF 
ZsCOLFRT 


OFSH 
Ar8 


MAXOFF 
C»COLFRT 


As MAXOFF 


(OFFSET) 2A 


er Nhe 


tone fe 


o> be 


ape be 


GET SCREEN OFFSET 

CHECK IF AT END 

YES: RETURN 

CALCULATE NEXT POSITION 
CHECK IF OVER LIMIT 

NO 

YES: SET TO MAXIMUM 


UPDATE OFFSET 


} 
+ TV SCREEN COLUMN SCROLL BACKWARD 


RET 


Ar (OFFSET) > GET SCREEN OFFSET 
A > CHECK IF AT BEGINNING 
Z+COLBRT * YES: RETURN 

G7H > CALCULATE NEXT POSITION 
NZsCOLBKI 

Ay (OFFSET) 

8 

COLEK2 

Ar (OFFSET) 

OF 8H 

(OFFSET) 9A + UPDATE OFFSET 


‘ UPDATE TV SCREEN 


$ 


PUSH 


BC 

Ari COLNO) + GET COLUMN NUMBER 

Bea 

As (OFFSET) + GET CURRENT OFFSET 

Cr MARGIN ? CALCULATE LEFT LIMIT 

Axl 

B + CHECK IF LESS THAN LEFT LIMIT 

Cs SCNUFL + CHECK IF LESS THAN RIGHT LIMIT 
Ark 

C + CALCULATE OFFSET 

NC» SCNUP? + NOT IN LEFTMOST MARGIN, RETURN 
A > CLEAR OFFSET 

SCNUFZ + RETURN 


EoBS 
ESB?’ 
E588" 


ESBA' 
ES8E' 
ES8C ' 
ES8D 
ESBE ' 
a 
S92 | 
oe 
ba96! 


E58" 


ESB 
Ent 


ES9D' 
ESPE' 
OOF 
ESAQ' 
ESAl 
ESAS! 
ESAG' 
ESA?! 
ESA? 
ESAA’ 
ESAD ' 
ESAF ' 


ESBi' 
ESE3° 


ESBS ' 
ESE? ' 


ESBB' 
ESBE' 
ESEF' 


ESCt' 
ESC4' 
ESC’ 
ESC8' 
ESCA’ 
ESCE' 


ESCD' 


MACRO-80 3.44 


Cé 1D 
ER 


39 ii 


ar 
78 
71 
4F 
3A FFD9 
61 


Fo 

CS 

Do 

Fo 

JE OA 
32 FO38' 


3A FQ33" 
FE FF 
20 OA 


SE 00 
32 FQ33! 


CD £434! 
18 62 


3A F030" 
E7 


20 12 
3A FOZA' 


FE FF 
20 19 


CD E8ce’ 
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SCNUPL: 


SCNUPZ: 


SCHRET: 


CONOUT: 


CONI: 


PAGE 


AD 
CF 


1-17 


AyWIDTH 
B 
NC» SCNRET 


CrA 

Arb 

C 

CrA 

Ay (OFFSET) 
irl 
MAXOFF 

Cr SCNUPZ 
Ay MAXOFF 


(OFFSET) 2A 


EC 


$ 


$ 


bd 


¢ 


t 


+ CALCULATE RIGHT LIMIT 


+ NO CHANGE TO LIMITS 


: CHECK IF GREATER THAN MAXLAUM 
+ NO 
: YES» SET TO MAXIMUM 


FUT CONSOLE CHARACTER 


C = CHARACTER 


Ay TVCNT 
(COUNTER) 2A 
As€ 

7FH 

CoA 

Ay (GRPHSH) 
ON 

NZ CON 


Ar OFF 
(GREHSW) 2A 


CHAROUT 
CONEND 


Ay (CURCNT) 
A 
NZ CONIC 


As(LDFLG) 
ON 
NZ» CON? 


Ay'=' 
C 
NZ»CON2Z 


DIRADR 


$ 


+ 


$ 


t 


$ 


+ STRIF FIRST BIT 


+ CHECK IF GRAPHIC CHARACTER 


> NO 


+ TURN OFF SWITCH 


+ SEND CHARACTER 


MACRO-80 3.44 09-Dec-B1 


C3 £61D' 
FE O1 CONIC: 


20 05 


CD EBCE' 
18 41 
CD ESFD’ CONIA: 
18 3C 


9 CON2: 
FE 20 
38 OE 


FE 7E 
20 05 


CD £839" 
18 2E 


CON3; 


CD £634! 
18 24 


CONSA: 


Zi FQ79! CON4; 


57 

3A FO?9' 
BA 

20 OE 


Zi FQ39! 
CB Zi 
09 

CD E42)! 
18 OB 


FE FF 
20 Of 


CONd: 


SE 00 CONS: 


3A FO31' 
FE FF 
20 04 


CONEND: 


3E 31 
D3 O1 


PAGE 


CALL 
JR 


CALL 
JR 


1-18 

CONEND 

1 + CHECK IF COLUMN ADDRESS 

NZ CONIA + NO 

DIADRI : FROCESS COLUMN ADDRESS 
CONEND 

DIADR? + FROCESS ROW NUMBER 
CONEND 

AC 

BLANK + CHECK IF DISPLAYABLE 
CCON4 + NO 

TILDA + CHECK IF TILDA 
NZ»CONSA + NOs SEND CHARACTER 
TLDA + FROCESS TILDA 

CONEND 

CHAROUT + SEND CHARACTER 

CONE | 

HLsLEAGTE + GET LEAD-IN TABLE ADDRESS 
BrG > INDEX INTO TABLE 
HL» BC 

Ar (HL) + GET LEAD-IN INDICATOR 
DrA 

Ay (LEADFLG) + GET LEAD-IN FLAG 

i) + CHECK IF SAME 

NZ» CONG + NOe PROCESS CHARACTER 
HL» CHRTAE > GET ROUTINE TABLE ADDRESS 
C + MULITPLY BY 2 

HL» BC s INDEX INTO TABLE 

JUMF > PROCESS CHARACTER 
CONS 

ON + CHECK IF LEAD-IN ON 

NZ» CONEND 

ArOFF + CLEAR LEAD-IN SWITCH 
(LEADFLG) sA 

CON4 

AvOFF > CLEAR SWITCHES 
(LEADFLG) sA 

Ay (CURSH) + GET CURSOR SWITCH 

ON + CHECK IF ON 

NZsCONRT + NO 

Ar ONCUR + TURN ON CURSOR 
(VICCMD) 9A 


E428" 
F629" 
Eé2A’ 
E626" 
Eé2C' 


E42)! 
Fé2E' 
Eé2F' 
E430! 
E431 ' 
E432 ' 
F433! 


MACRO-80 3.44 


3A FO28" 
Fi 
D3 iC 


3A FFD4 


4A FO2B' 
FE FF 
20 IF 


AF 

32 FFD4 
3A FO27' 
FE 00 
28 1B 


SE AE 
CD EB2D" 


CD E73D' 
1B 19 


a2 FFD4 
3E AE 
CD EBZD' 
18 OF 


SE AA 
CD EEZD' 
18 08 


SE AB 


69-Dec-Bi 


CONRT: 


JUMP: 


CHAROUT: 


CHROT: 


PAGE 


FOP 


EX 
LD 


+ CHARACTER OUTPUT TO SCREEN 


4 
& 
? 
a 
t 


CHROTI: LOD 


CALL 
JR 


CHKLINS LD 


C = CHARACTER 


Ar (EKFRFLG} > GET BACK/FOREGROUND FLAG 

C ¢ SEY CHARACTER TO GROUND TYPE 

(VICDAT) 2A » SEND CHARACTER 

Ar(COLNO) ¢ CHECK IF END OF LINE 

A 

MAXCOL 

NZ» CHROT + NOs SEND CHARACTER 

Ar (SWANL } + CHECK IF LINE TRUNCATE 

ON 

NZsCHROTI + YES 

A + CHECK IF SCROLL 

(COLNO) sA 

Ar(SCRLFLG) 

OFF 

ZyCHKLIN : NO» UPDATE LINE NUMBER 

Ar KRING * WRITE CHARACTER & INCREMENT CURSOR 
WAIT 

SCROLL * SRCOLL SCREEN 

CHORET + RETURN 

(COLNO) 2A s UPDATE COLUMN NUMBER 

ArWRINC + WRITE CHARACTER & INCREMENT CURSOR 
WAIT 

CHORET + RETURN 

Ar RRCUR + WRITE CHARACTER AT CURSOR 

WAIT 

CHORET + RETURN 

ArWRINC > WRITE CHARACTER & INCREMENT CURSOR 


F478" 
E676" 
F670" 


E6?F' 
EAR?! 


F684" 
E484’ 
E6a7" 
E689! 
FégA' 
EAB 
ESOF 
F490" 
E692! 
£495) 
EE94' 
£699! 
EAA 
EAC 
E490" 


EO?F' 
E6Az' 


EéA4' 
EéA? ' 
E6AB 
EGAC' 
EdAD' 
EGA’ 
E4BO' 


E4B2 ' 


ESBS 


EdR6' 
E4BR' 
EéE9 | 
E4BB' 
E4BC' 


MACRO-8¢6 3.44 


CO ERZD’ 
CO E78E' 


C9 


21 0089 
ED SB FFD4 


CD E7BE' 


C9 


ED SB FFD4 
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CHORET; 


LFEED; 


LFEEDL: 


LFEEDZ: 


LFEED3; 


LFRET: 


CARRTN: 


FAGE 1-29 

CALL WAIT 

CALL UFDLIN 

RET 

; 

> LINE FEED 

LD Ay (SCRLFLG) 
cP OFF 

JR ZoLFEEDI 
CALL SCROLL 

JR LFRET 

IN As(VTCCUL) 
LD Lyf 

IW As (VICCU?) 
LD HiA 

FLUSH 

LD DEs (COLNG) 
XOR A 

SEC HL» DE 

LD DE »MAXCOL-1 
ADD HL» DE 

LO DE sENDADR 
xOR 4 

SEC HL» DE 

FOF HL 

JR Zy+LFEEB? 
LD DE» HAXCOL 
Jk LFEED3 

LD HL» STADR 
LD DE (COLNO) 
ADD HL» DE 

LD AeL 

OUT CVICCUL) 4 
LD ArH 

GUT (VTCCUZI A 
CALL UFDLIN 

RET 


> RETURN 


> UPDATE LINE NUMBER 


> PROCESS SCROLLING 


+ RETURN 


¢ GET CURSOR ADDRESS 


HL » SAVE CURSOR 


> RETURN 


+ CARRIAGE RETURN 


Ay (VICCUL) 
LA 
Ay (VTECUZ) 
Hré 
Des (COLNO) 


+ CHECK IF AT LAST LINE 


+ YES 


> CLACULATE NEXT LINE ADDRESS 


+ CALCULATE NEXT LINE ADDRESS 


+ UPDATE CURSOR 


+ UPDATE LINE NUMBER 


s UPDATE CURSOR & COLUMN NUMBER 


EéC)' 
EéCi' 
F604! 
E4C6' 
E6C7' 
EdC9' 
E4CA' 


E4CC' 
EAC 
EéD1' 


E4D4' 


E6D5' 
EéD5' 
E608" 
F6D9" 


E4DB 
FADE ' 
EGDF ' 


EsEi' 
ESE?! 
ESES' 
E6E?' 
E6EA' 


EdeC' 
E4ED' 


EdFO' 
EéFz' 
EéFa' 
FGFS! 
EdFé' 
EdF?" 
E6FA' 
E4FC' 


EdFE ' 
E7O1' 


E703! 
E704" 
E703! 
E707! 
F708" 


E7OA' 


MACRO-80 3.44 


3A FQ2C' 
rE Ee 
CC £673" 


£9 


3A FFD4 
BE? 
29 il 


3A FFD6 
E? 


ab 


18 O1 


69-Dec-B1 


BESPACE¢ 


RSMOVL: 


BSMOVI: 
BSOUT; 


ESRET: 


1-21 


(COLNG?} A 
HL» DE 

ArL 
(VICCUL) 9A 
ArH 
(VICCUZ) 9A 


Ay (SWALF) 
ON 
ZyLFEED 


+ RETURN 


+ BACKSPACE 


§ 


LD 


DEC 
LD 


RET 


Ay (COLNO) 
A 
NZ»BSHOYL 


Ar (LINENO) 
A 
Z+BSRET 


> CHECK IF AUTO LINEFEED 


+ CHECK IF AT BEGINNING OF LINE 


> NO» MOVE LEFT 


¢ CHECK IF AT FIRST LINE 


+ YES» RETURN 


A + UPDATE LINE NUMBER 


(LINEND) 9A 


Ar OFF 


(SCRLFLG} 2A 


Ay MAXCOL 


A 
(COLNO) vA 


Ar (VTCCUL) 
ErA 

Ar (VTCCUZ) 
DrA 

HL» STADR 
A 

HL DE 
NZBSHOVI 


DE rENDADR 
BSOUT 


+ TURN OFF SCROLLING 


: UPDATE COLUMN NUMBER 


+ UPDATE CURSOR NUMBER 


$ CHECK IF AT START ADDRESS 


> NO 


* SET CURSOR TO END ADDRESS 


DE + DECREMENT CURSOR 


ArE 
(VTCCULI A 
ArD 
(VTCCUZ) 2A 


+ RETURN 


E70B ' 
E7QE' 
E7OF' 
E711" 


E713° 
E716" 
E718" 


E71A' 
E716" 
E7IE! 


E71F' 
bias. 
Eien 
E/2o' 
Eley’ 
E728! 
E726" 
E720! 
E/E! 


E730" 
733! 


E733! 
E730" 
E73?" 
F739" 
E73A' 


E730" 


E730' 
E73F ' 


E741! 
E7 4S! 
E744" 
E748! 
E749" 
E746! 
E/4E 
E74F' 
E730" 
E732! 


E753! 


MACRO-80 3.44 


3A FFD4 
30 

FE 30 
20 OC 


3A FFDA 
PE AZ 
28 22 


cis 
oe FFDG 
AF 


32 FFD4 
DE 04 


3E 30 
D3 O1 


ED SB FFD? 
7E 
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CURIGT? 


CURTGI: 


CURIGZ: 
CURTG3: 


CURETS 


SCROLL: 


’ 
+ CURSOR 


RIGHT 


Ar (COLNO) 
A 
MAXCOL 


NZsCURIGI 


Ay (LINEN) 
MAXLIN 
ZyCURET 


+ CHECK IF AT END OF LINE 


+ CHECK IF AT LAST LINE 


> YES» RETURN 


A + INCREMENT LINE NUMBER 


(LINENG) +A 
A 


(COLNO) +4 
As (VTCCUL) 
ErA 
As(VTCCUP} 
DA 

HL  ENDADR 
4 

HL sDE 
NZsCURIG2 


DE» STADR 
CURTIGS 


DE 

ArE 
(VICCUL) 2A 
Ard 
(VTCCUZ) A 


ArOFFCUR 
(VICCHD) A 


DE» (SCSTART) 


AxE 
(VICCUT) 2A 
AD 
(VTCCUZI 9A 
HL »MAXCOL-1 
HL + DE 

AyL 
CVTCFETLIsA 
ArH 
(VTCFT2Z) 94 


: CHECK IF AT END ADDRESS 


+ NO 


+ SET TO START ADDRESS 


* TURN OFF CURSOR 


+ SET CURSOR TQ FIRST LINE 


+ SET POINTER TO END OF FIRST LINE 


E7oo! 
E738" 
EFDA’ 


E7oC' 


E7OF ' 
E740" 
E743" 
E764! 
E765! 
E747' 
£768! 


oA! 
E76E 
E74C' 
E7 OF 
E771" 


E773! 
E776! 


E778' 
E779" 
E77C' 
E77F' 
E781" 


E7§3' 
E784 ' 
E784" 
E787" 


E789" 
E78D' 


E78E' 
E791" 
E792" 
E795 ' 
E797! 


E799" 
E79E" 


E79E" 


MACRO-80 3.44 


3A F028" 
Fé 20 
B3 1C 


CD EBZB' 


a 

2A FFDA 
1? 

rat 

D3 04 
iC 


03 05 


Di 

AF 

Zi O7FF 
ED 32 


29 05 


11 0080 
18 1 


13 

CD £638" 
34 FFOF 
CE 4F 
20 06 


76 
D3 02 
7A 
D3 03 


ED 33 FFD? 
C9 


3A FFD 
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SCRLLI: 
SCRLLZ; 


SCRLL3} 


UFDLIN: 


UPDLRT: 


PAGE 1-23 


LD Ay (BKFRFLG) ; 
OR BLANK 
OUT (VICDAT) 2A 


SEND OUT BLANK 


CALL WAIT? + CLEAR LINE 
PUSH = HL + UPDATE CURSOR 

LD HL» (COLNG) 

ADD HL »DE 

LD AsL 

OUT (VICCUL) A 

LD AsH 

QUT (VTCCU2) A 

FOF DE 

XOR A + CHECK IF SECOND LINE WRAF AROUND 
LD HL sENDADR 

SEC HL + DE 


JR NZySCRLLI 


LD DE» STADR 
JR SCRLL?Z 


oope te 


INC DE 

CALL WAITI ; 
LD Ay (SWITCH) } 
BIT TVsA 

JR NZ*SCRLL3 t 
LD ArE ; 
OUT (VTCSC1) 9A 

LD ArD 


OUT (VTCSC2) 9A 


LD (SCSTART) DE => 
RET + RETURN 


; 
> UPDATE LINE NUMBER 


LD Ar (LINENO) 


bes ahd 


INC fi 
LD (LINENO) 9A 
CP MAXLIN ; 


JR NZ» UFDLRT 


 & 


LD Ar ON 
LD (SCRLFLG) 2A 


rte be 


RET 


: TURN ON BELL 


YESy SET TO BEGINNING ADDRESS 


WAIT FOR VBLANK 
CHECK IF TV SWITCH ON 


YES 


SET SCREEN START ADDRESS 


SAVE SCREEN START ADDRESS 


UPDATE LINE NUMBER 


CHECK IF AT LAST LINE 
NOy RETURN 


SET SCROLL FLAG ON 


E7 EC 
E/BE" 
E7C1' 


E7C2' 
E7C4 
E7C7" 
E7CB' 


E7CE' 
E?CE" 


E7CF' 


E7D0' 
E7D2' 


E7D3' 
E/D?' 


E7DA' 
E7DD' 
E7E0" 
E7E1' 


11 040 
3A FFEO 
CE FF 
D3 1D 


04 46 
10 FE 


3A FFEO 


EFF 
32 F035! 
c9 


32 FQ32' 


CD E4A8' 
E? 
C8 


CD E4E4' 
18 Fé 


3E 03 
32 F032" 


21 Fo78' 
3A FFDA 
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BELL: 
LOOP 16: 


LOOPI3: 


LOOP14: 


RLOCK: 


KUNLK: 


LOOFZ1; 


SNDADR: 


PAGE 


DE? 140 
As (HODREG: 
BEEP A 
(VICMOD) rA 


Ha 


LOOP13 


Ar (MODREG) 
(YTCHOD) +A 
B78 
LOOF14 


DE 


AsE 
p 
NZ>LOOFLé 


; 
+ LOCK KEYBOARD 


+ 


LD 
LD 
RET 


; 


frQN 
CKEYSH) 2A 


> UNLOCK KEYBOARD 


CALL 
OR 


} 
* SEND CURSOR ADDRESS 


ArOFF 
(KEYSH) 9A 
A 
(CHRONT) 9A 


CONST 
A 
Z 


CONIN 
LOOF21 


Ard 
{CHRONT) sA 


HL » CHREUF 
Ar (COLNG) 
A 

NZySNDADL 


+ 


$ 


4 


$ 


> GET MODE REGISTER VALUE 


+ SET BEEF MODE 


+ CLEAR BEEF MODE 


+ DELAY 


MACRO-B0 3.44 09-Dec-8i PAGE 1-2 


FFES' = CBF? BIT 698 

EVES’ = CE AF BIT wr 
E7E7* = 7? SNDADI: LD (HL) 2A 
E7EB’ 2 INC HL 
E7E9' 3A FFD LD As(LINENG) 
EVEC' B? OF A 
E7ED' 20 2 Jk NZ» SNDADZ 
E7EF' CE 4F EIT w7A 
Pike «Oe SNDABZ: LD (HL} 2A 
E/F2' 2 INC HL 
E7F3' = 3E 90 LD AYER 

AFat 7? LD (HL) 2A 
E7F6' C9 RET 


> TURN ON DISPLAY 


$ 


EvPi* ~gE.29 a ArQNDIS 
E7F9' = =3 01 OUT (VICCHD) 2A 
E7FR' C9 RET 


; 
s TURN OFF DISPLAY 


t 


E7FC’ 3E 28 OFFD; = =LD ArQFFDIS 
E7FE’ 03 01 QUT (VICCHD) 9A 


E800" = C4 RET 


3 
$ 


+ TURN ON CURSOR 


E801’ 3E 31 1 ArONCUR 
E803' D3 91 OUT (VTICCHD) 9A 
E805' 3E FF LD Ar ON 

E807" 32 FO3I' LD (CURSH) 9A 
EBOA' C9 RET 


+ TURN OFF CURSOR 


ES0B' JE 30 OFFC; LOD ArOFFCUR 
E80D' = 03 41 OUT (VICCHD) 9A 
EB0F' 3E 40 LD Ar OFF 
EBi1' 32 FO3L' LD (CURSH) 9A 
E814" 9 RET 


| } 
lam ; GRAPHIC CHARACTER 


} 


Eg 
E817" 
EBLA' 


PBIB 
E81D' 
E820" 


E826" 
E829! 
E826 


EB2C' 
EBZF' 


E830' 
E833" 
EB3S' 


E837 ' 
E839" 
E83’ 


E830" 
E840" 


E841" 
E844" 
E843" 


E847" © 


E848! 


HACRO-80 3.44 


32 F033! 


3A FO2D" 
FE FF 
CQ 


3é FOZA’ 
C9 


34 FO2D' 
FE FF 
28 06 


3E FF 
32 FOZ?! 
C? 


CD E434" 
CY 


ha 6 m3 


32 FFD 
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GRAPH; 


SETFR: 


SETEK} 


ESCAPE! 


TLDA: 


TLDAL: 


CURUP: 


FAGE 1-24 


LD Ay ON 
LD (GRPHSW) 5A 
RET 


; 
+ SET FOREGROUND MODE 


f 


LD As FOREND 
LD (BEFRFLG) +A 
RET 

+ SET BACKGROUND MODE 


$ 


XOR A 
LD (BRFRFELG) 9A 
RET 


, 
+ ESCAPE 


LD Ar (SHLEAD) 
CF OW 
RET NZ + IGNORE 


CHECK IF LEAD-IN CHARACTER 


om te 


LO (LDFLG) A > SET LEAD-IN FLAG 


LD Ay (SHLEAD) CHECK IF LEAD-IN CHARACTER 


“of to 


CF ON 

JR ZyTLDAI > DISPLAY CHARACTER 
LD ArQN : SET LEAD-IN FLAG 
LD (LEADFLG) 94 

RET 


CALL © CHAROUT 
RET 


SEND CHARACTER 


Safe to 


r 
§ 


: CURSOR UF 


LD A: (LINENO) CHECK IF AT FIRST LINE 


ee 


OR A 
JR ZsCUPRET > YES: RETURN 
DEC A + UPDATE LINE NUMBER 


LD (LINEN) sA 


E84E" 
EB4D' 


E850" 
EB52' 
EB53' 
EBoS' 


F856" 
EBo7' 
EBoB 
Eg5C' 
EBSE" 
E861 ' 
ER62' 
EB64' 
E863" 


E867" 
EB48' 
EB4B' 
EB4D' 


EB4F ' 
E872" 
E873 ' 
E874! 
E878 ' 
E87C' 


E87D' 
E87E" 
EBB0' 
E881" 


E883" 


E884" 
E887" 
E88?" 


EB8E° 
E88C' 
EBSF ° 
E891" 
EBP2' 
EB?4' 
ERIS ' 
E898" 
E899" 
EB9A' 
EB9D" 


MACRO-80 3.44 


3E 90 
32 FO2Z7' 
DE 94 
&F 

DE 05 
&7 


ES 
ED SE FFD4 


11 OO04F 


17 


3A FFDS 
FE 17 
28 26 
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. CURUPI: 


CURUP 2} 


CUPRET: 


CURDWN: 


RET 


1-27 


Ay OFF 
(SCRLFLG) 9A 


Ay(VTCCUL) 
LA 
Ay(VICCUZ) 
HyA 


+ TURN OFF SCROLLING 


* GET CURSOR ADDRESS 


HL + CHECK IF LINE AT START ADDRESS 


DE» (COLNO) 
A 

HL »DE 

DE: STADR 


Z»CURUP1 


A > NOr CALCULATE PREVIOUS LINE ADDRESS 


DE» MAXCOL 
HL +DE 
CURUF?2 


HL» ENDADR 
DE» MAXCOL-1 
A 

HL »DE 

DE» (COLNO) 
HL + DE 


ArL 
(VICCUL) A 
ArH 
(VICCUZ) A 


’ 
+ CURSOR DOWN 


Ay (LINENO) 
MAXLIN 
ZyCDHNRT 


A 
(LINENO) A 
As(VTCCUL) 
LrA 

Ay (VICCUZ) 
HrA 

DE» MAXCOL 
HL DE 
DErHL 

HL ENDADR 
A 


+ YES 


+ GET END ADDRESS 


> CALCULATE FIRST ADDRESS OF LINE 


¢ CALCULATE CURSOR ADDRESS 


+ CHECK IF AT LAST LINE 


» YESy RETURN 


* CHECK IF END ADDRESS LINE 


EB9E' 
EBAO’ 


EBA2' 
EBA’ 
EBA?! 
EBAA' 


EBAB ' 
EBAC' 
EBAE" 
EBAF ' 
ESB1' 


EBE2' 
EBRS' 
EBB’ 
ESRB" 
EBE?' 
ESEE' 
EBBC' 
EBEF' 
EBC?! 
F8C4' 


E8C7' 


E8C8' 
EBCA' 
EBCD' 


E8CE' 
E8D1' 
E8D3' 


E8D3' 
E8D6' 
E8D8' 
E8DE" 
E8DD' 
E@DF' 
ESE1' 
EGE’ 
E8ES' 


ESE 
E8E9' 
ESEE' 


MACKO-80 3.44 


ED 32 
30 09 


21 0680 

ED SE FFD4 
19 

EE 


ZA FFD? 


3E 90 
32 FQ27' 


C? 


aE 1 
32 FQ30' 
C? 


3A FO2A' 
FE FF 
20 13 


79 

D4 20 
32 FFD6 
FE 17 
JE FF 
28 02 
SE 00 
32 FQ27' 
18 OF 


79 
FE SF 
F4 E948" 


09-Dec-81 


CDWNI: 


CDWNRTs 


CURHME + 


CURRET: 


DIRADR: 


DIADRI: 


DIADRC: 


DIADRA: 


PAGE 1-28 


SEC HL DE 


JR NC» CDWNI 


LD HL» STADR 
LO DE» (COLNO) 


ADD HL» DE 

EX DE» HL 

LD Ase 

QUT (VTCCUL YA 
LD AsD 


OUT (VTCCUZ} 2A 


a 
¢ 


+ CURSOR HOME 


LD HL» (SCSTART) 


LD ArL 
OUT (VICCUL) 9A 
LD ArH 


OUT (VICCUZ) 9A 
XOR A 
LD (LINENG) 2A 
LD (COLNO) 2A 
LD Ar OFF 

LD (SCRLFLG) 2A 


> DIRECT ADDRESSING 


LD Ari 
LD (CURCNT) sé 


RET + RETURN 


LD Ay (LDFLG) 
CF ON 
JR NZ DIADRA 


LD AC 

SUE 20H 

LD (LINENO} sA 
CP MAXLIN 

LD AyON 

JR Zr DIADRC 
LD Ay OFF 

LD (SCRLFLG) sA 
JR DIADRD 

LD ArC 

CF +a) 


CALL = Pe CONVRT 


+ NO 


> CALCULATE NEXT LINE ADDRESS 


» SET CURSOR ADDRESS 


> GET SCREEN START ADDRESS 


> UPDATE CURSOR ADDRESS 


* RESET LINE & COLUMN NUMBER 


> TURN OFF SCROLLING 


+ SET COUNT FOR CUROSR ADDRESS 


+ TEST IF CONVERSION IS REQD - STRIF OFFSET 
* YES STRIP BITS 5-7 OFF TO REMOVE OFFSET 


ESEE* 
E8FO' 


ESF 2" 


EBF 4° 
E8F7' 
EBF9" 
E8FC’ 


E8FD' 
E900' 
E902! 


E904" 
E905 ' 
E907" 
ES0A' 
E90D' 
E9QE" 


E910" 
E911" 
E913" 
EP1S' 


E917" 


E919" 
EF1A' 
E9iC' 
EVIE: 
E920" 


E922" 
E925 ' 
E926' 
E929" 
E9ZA' 
E92D' 


E930' 
E933' 
E936" 
E937 ' 
E938! 


EP3A' 
EI3B' 


E930" 
E941" 


E942" 
E946" 


MACRO-80 3.44 


FE 90 
38 02 


SE 4F 


32 FO2F’ 
JE 02 
32 FO30' 
C9 


3A FO2A' 
FE FF 
20 Oc 


79 

Dé 20 
32 FFD4 
3A FFD6 
47 

18 20 


79 

Eé iF 
FE 17 
38 02 


SE 1? 


FS 

FE 17 
3E FF 
28 02 
3E 00 


32 F027" 


3a FOZF' 
32 FFD4 


11 0050 
21 0000 


ED SE FFD4 
19 


ED SB FFD7 
19 
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DIADRB: 
DIADRD: 


DIADR2: 


DIAORB: 


DIADR?: F 


DIADK7: 


DIADRE: 


LOOPS: 


DIADRS; 


PAGE 


MAXCOL 
CeDIADRS ; 


ArMAXCOL-1 ; 


(COLTF) 2A ; 
Ar2 } 
(CURCNT) 2A 

+ RETURN 


Ay (LDFLG)} 
ON 
NZ »DIADRE 


ArC 

20H 
(COLNO) 5A 
A: (LINENO) 
BrA 
DIADRE 


ArC 
1FH ; 
MAXLIN ' 
CyDIADR? 


> o 


ArMAXLIN 


ne 


AF 

MAXLIN 
AON 
Zr+DIADR7 
Ay OFF 


> & 


ee he 


(SCRLFLG) A 
AF 
(LINENO) 2A 
BrA 

Ar (COLTP) 
(COLNO) 2A 


> © 


DE» MAXCOL 
HL 70 

ArB 

A 
ZrDIADRS } 


> & 


ba ol al 


HL» DE 
LOOPS 


DE» (COLNO) 
HL DE 


DE» (SCSTART) 
HL + DE 


a 


+ CHECK IF WITHIN LIMIT 


YES 


NOy SET TO MAXIMUM 


SAVE COLUMN NUMBER 
INCREMENT COUNTER 


STRIP THE OFFSET 
CHECK IF WITHIN LIMIT 
YES 


NO» SET TO MAXIMUM 


CHECK IF AT LAST LINE 


YES 
TURN OFF SCROLLING 


UPDATE LINE & COLUMN NUMBER 


CALCULATE CURSOR ADDRESS 


CHECK IF AT ROW 0 


YES 


GET START ADDRESS 


EP6E" 
E970! 
EVLa: 
E974! 
E976" 
E979" 
E97A' 
E97C' 
E97D' 
EQ7F' 
E9B2" 
E983" 
ESBS ' 
E986! 
E988" 
E9BA' 


E98D" 
E990" 


E993" 
E996" 
E998" 


E99A' 


MACRO-80 3.44 


21 0080 
22 FFD? 


3A FFOF 
CE 4F 
20 04 


7D 
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DIADR3: 


DIADR4: 


DIADRO: 


CONURTS 


CLRSCN: 


1-30 


HL 


A 
HL »DE 


+ CHECK IF OVER BOUNDARY 
DExENDADR+1 


NC sDIADRS 


HL 
DIADR4 


DE 

DE rSTADR 
HL DE 
AsL 
(VICCUL) 
ArH 
(VTCCUP) 


fh 
(CURCNT) 
ArOFF 
(LEADFLG 


fi 


sf 


a 
$ 


& 
t 


YES 


UPDATE CURSOR 


* CLEAR COUNT 


A 


del 


(LDFLG) 2A 


1FH 


s CLEAR SCREEN 


A» OFFCUR 
(VICCMD) 


+ RETURN 


rf 


Ay BLANK+F ORGND 


(VTCDAT) 
HL» STADR 
ArL 
(YTCCUL) 
ArH 
(VICCUZ) 


vA 


rf 


rf 


HL sENDADR 


AL 
(VTICFT1) 
AvH 
(VICPT2) 
AysHRCF 
WAIT 


HL» STADR 
(SCSTART 


rf 


7A 


) HL 


Ay (SWITCH) 


TVA 


NZ*CLRSC1 


ArL 


ry 
$ 


fe te 


a 


ba oka 


> & 


ba alk al 


> P 


ah & 


t 


> & 


TURN OFF LEAD-IN FLAG 


STRIP THE HIGH ORDER BITS - 5 TO 7 


TURN OFF CURSOR 
SET TO FOREGROUND BLANKS 


SET CURSOR TO START ADDRESS 


SET POINTER TO END ADDRESS 


CLEAR SCREEN 


SET CURSOR AND SCREEN TO START ADDRESS 
SAVE SCREEN START ADDRESS 


CHECK IF TV SWITCH ON 


+ YES 


UPDATE SCREEN START ADDRESS 


EOE! 
E99p' 
ESSE! 


E9AD' 
E9AI' 
EFAS! 
ESA4' 
ERA 
EGA?! 
EAA’ 
EAD 
EQAF' 
ESB2' 


EES ' 
ESBS 
ESE?’ 
ESBA' 
EPBE' 
ESBF 
ESC1' 
oe 
EC4! 
ESC6' 
ESC?" 
E9CR’ 
ESC? 
ESCE" 
EPCC' 
E9CE” 
EDO" 


E9D2 ' 


EDS ' 
EDS ' 
E9D8' 
E?D?' 
E9DE’ 


E9DC' 
E9DE' 


NACRO-80 3.44 


D3 02 
7C 
D3 03 


70 

D3 04 
7C 

D3 05 
AF 

32 FFDA 
a2 FFDS 


3E 30 
3 01 
21 004F 
ED SE FFD4 


ED 2 
r 04 


JE AQ 
18 02 
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CLRSC1; 


CLREND; 


CLRFSC; 


+ CLEAR 


t 


LD 
JE 


} 
+ CLEAR 


$ 


1-31 


(VICSC1) A 
AvH 
(VICSCZ) A 


AryL 

(VTCCUL) FA 

AsH 

(VICCUZ) 94 

A + RESET COLUMN & LINE NUMBER 
(COLNO) A 

(LINENO) A 

Av OFF + TURN OFF SCROLLING 
(SCRLFLG) 2A 


TO END OF LINE 


AyOFFCUR + TURN OFF CURSOR 

(VICCMD) +A 

HL sMAXCOL-1 + CALCULATE END OF LINE ADDRESS 
DE» (COLNO} 

A 

HL » DE 

As (VTCCUL) 

ErA 

Ar (VICCUZ) 

DA 

HL DE 

ArL + SET POINTER TO END OF LINE 
(VICFTID A 

ArH 

(YICFT2Z) 9A + SET TO FOREGROUND BLANKS 
Ay BLANK+FORGND 

(VICDAT) +A 


WAIT? + CLEAR LINE 
ArE > RESET CUROSR ADDRESS 
(VTICCUL) 2A 


ArD 
(VTCCUZ) 2A 


TO END QF SCREEN (FOREGROUND BLANKS) 


ArBLANK+FORGND 
CLRF 1 


TQ END OF SCREEN (BACKGROUND BLANKS) 


EFEG! 


ESE?! 
EOES* 
ESE 
EER ' 
EEA! 
ESEB' 
EPED' 
EEE" 


EF?" 
E9F3! 
EF 4! 
ETFS" 


ESFS' 
ERFE' 
FSFE! 
ESFE' 
EQFF ! 


EAQL' 


EAQ4' 
EAQ?' 
EAGA' 
EAOE' 
EAGD' 


EAQF' 
EAIQ' 
EALZ' 
EAI3' 


FALS' 
EAIS' 
FAL?! 
EALA’ 
EAIC' 
EAID' 


EALF' 


EA2Z2' 
EAZ3' 
EAZ4' 
EAZ6' 
EAg? ' 
EAZ9! 


EAZA' 


MACRO-80 3.44 


ED SE FFD? 


3E 39 
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CLRER: 


CLRF 1: 


CLRF2s 


CLRFRTs 


DELLNE: 


PAGE 


CALL 


Ar BLANK 


(VICDAT? 9A 

Ay OFFCUR > TURN OFF CURSOR 
(VICCMD) 9A 

Ar(VTCCUL) > GET CURRENT CURSOR 

LA 

A(VTCCUZ) 

HA 

DE» (SCSTART) + GET SCREEN START ADDRESS 


HL 

A > CHECK IF CURSOR GREATER THEN START ADDR 
HL» DE 

CrCLRF? > NO 

DE s ENDADR + GET END ADDRESS 

ArE + SET UF POINTER 

(VICETI}+A 

AyD 

CUTCFI2Z}9A 

WAIT? + CLEAR LINE 

HL (SCSTART? + GET SCREEN START ADDRESS 
DEsSTADR > CHECK IF SAME AS START ADDRESS 
A 

HL» DE 

Ze CLRERT + YES: RETURN 

ArE > SET CURSOR TO START ADDRESS 
(VTCCUL) A 

ArD 


(VICCUZ} 94 


HL»(SCSTART} 3 GET SCREEN START ADDRESS 
HL + DECRENENT TO FREVIQUS LINE 


AeL > 5ET FOINTER TO END OF LINE 
(VICPT1) 94 

AH 

(VTCFETZ3 9A 

WAIT? + WAIT FOR VELANK 

DE + RESTORE CURSOR 

ArE 

(VTCCUL) 94 

ArD 

(VTCCUZ) A 


+ DELETE LINE 


? 


LD 


ArDFFCUR + TURN OFF CURSOR 


Eazt' 
EAZE’ 
EA3O' 
EA31' 
EA33' 
EAS4' 
EA38" 
EA3?' 
EA3C’ 
EASE’ 
EASE 
EA42' 
FASS 
EA6' 
FA48° 
EA4aS' 
ERB 
EAAE' 
FAO" 


EAS 
FAg3' 
FAG’ 
EAD? 
EASA’ 
EASE 
EASE ' 
EAGF’ 
EA61' 


EAé3' 
EAA4 


EAd6 ' 
EAG?' 
EAdA' 
EASC’ 
EASD' 
EAAF 
EA)! 
EA72' 
EA74' 


EA?" 
EA7?" 


EA7B' 
EA7D' 


EA80' 
EARL 
EABZ' 
EARS" 
EAGS' 


EAg7' 


MACRO-80 3.44 


3A FOZE' 
FE 1? 
78 34 


aC 
32 FO2E" 


11 0080 
7B 


SE A4 
CD EB2D" 


DE OD 
03 ic 


JE AE 
CD EBZD" 
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DELI: 


DEL4: 


1-33 


CVTCCMD) A 
Ar(VTCCUL) 
LA 
Ar(VTCCUZ) 
HA 

DE» (COLNO) 
A 
(COLNO) 94 
HL» DE 


¢ UPDATE COLUMN NUMBER 


HL + SAVE LINE FIRST ADDRESS 


Ay (LINEND) 
(LINETF 94 
AL 
(YVICCUL) 9A 
ArH 
(VICCUZ) A 
Ay{LINETF) 
MAXLIN 
ZyDELCLR 


A 
(LINETP) 9A 
DE» MAXCOL-1 
HL DE 

DErHL 

HL »ENDADR 

A 

HL» DE 
Z+DEL2 


DE 
DEL 


DE» STADR 
ArE 
CUTCPT1) 2A 
ArD 
(VICFTZ) 2A 


+ GET LINE NUMBER 


> CHECK IF AT LAST LINE 


+ YES» CLEAR LAST LINE 


> SAVE LINE NUMBER 
¢ CALCULATE NEXT LINE ADDRESS 


+ SET POINTER TO NEXT LINE ADDRESS 


DE + SAVE NEXT LINE ADDRESS 


ByMAXCOL 
AyRDPT 
WAIT 


Ay (VTCINP) 
(VICDAT) 2A 


AyHRINC 
WAIT 


# READ FROM POINTER 


: GET CHARACTER 
+ SEND CHARACTER 


+ WRITE AT CURSOR & INCREMENT 


DE ’ INCRMENT POINTER ADDRESS 


ArvE 
(VICPTID cA 
ArD 
(VICFT2) 9A 


DEL4 


> REPEAT FOR WHOLE LINE 


EAS?" 


EASA’ 


EABC’ 
AGF 
EA90' 
EARL 
EARS’ 
EAR4! 
EARS! 
EAPE 


EASA! 


EA9D' 
EAGE' 
EASF' 
EAAL' 
EAAZ' 
EAA4' 


FAAS ' 
EAA7' 
EAA?" 
EAAB' 
EAAC' 
EAAE' 
EAAF 
EAB 
EARS" 
EAB?" 
EAB?’ 
EABA' 
EABB" 
EABD' 
EABE ' 


EACO' 
EACZ' 


EACS' 
EAC?! 
EACA’ 
EACC' 
EACD 
EACE' 
FADO! 
EAD?’ 
FAD4' 
EAD? ' 


MACRO-80 3,44 


Ei 
16 BP 


11 904F 


CD EB2D 
10 EC 


09-Dec-21 PAGE 


DELCLR: LD 


123% 


HL 
DEL1 


DEsMAXCOL-1 
HL» DE 

Aol 

(VICFTL) 9A 

ArH 

(VTCFT2) 94 

As BLANK+FORGND 
(VICDAT) +4 


WAITZ 


8 
$ 


a 
$ 


SET FOINTER TO END OF LINE 


CLEAR LINE 


HL + RESTORE CURSOR 


ArL 
(VICCUL) A 
AvH 
(VICCUZ) 2A 


$ INSERT LINE 


t 


INSLNE: LOD 
OUT 


INS1; LO 


As OFFCUR 
(VICCHD i A 
Ay (YTCCUL) 
LeA 

Ar (VTCCUZ) 
HrA 

DE» (COLND) 
A 
(COLNO) sA 


ArL 
(VICCUL) 2A 
AsH 
(YTICCUZ) 94 


BrMAXCOL 
HL» BUF TF 


ArRDCUR 

WAIT 

Ar (VTCINP) 
(HL) 2A 

HL 

ArBLANK+F ORGND 
(VICDAT) 9A 
A»WRINC 

WAIT 

INS1 


obo be 


oe 


ae & 


“> & 


om & 


hh ap 


> © 


rs 


TURN OFF CURSOR 


CALCULATE LINE BEGIN ADDRESS 


SET CURSOR TO BEGINNING ADDRESS 


SET TQ TEMPORARY BUFFER 


READ AT CURSOR 


GET CHARACTER 
SAVE IN BUFFER 


WRITE SPACE 


BLANK LINE 


EADY ' 
EADC’ 
EADF ' 
EAEZ' 
EAE4' 


EAE6’ 
PAE?’ 


EAEA' 
EAEC' 
EAED' 
FAEF' 
EAFO' 
EAFIL' 
FAF4' 
EAFS' 
EAF?' 
FAF9' 
EAFA' 
FAFC' 
FAFF' 
EBOG' 
FRO?’ 
EBQ3' 


EROS! 
ERO? ' 
FEOA' 
EEOC ' 
EBOF ' 
ERi1' 
EBL?" 
FRI3' 
EBIS' 
ERI? 
EBIA' 
ERIE! 
ERIC' 
FRIE' 


EB2O' 
EB?" 
ER22 ' 
EB24! 
EB25' 


EB2?' 


EB?S' 
EBZB' 


MACRO-80 3.44 09-Dec-81 


3A FEDS 
32 FOQ2E' 
3A FOQZE' 
FE i? 
28 3A 


INS23 


INS3; 
INS4: 


06 30 


CD EEZD' 
/\ 

23 

10 EC 
18 EF 


INSRTs 


CD EB38' 
JE BR 


WALTZ} 


: CLEAR 


& 


PALL 
LD 


1-35 


Ay (LINENO) 
(LINETP) 9A 

Ay (LINETP) j 
MAXLIN 

Zr INSRT ; 


CHECK IF AT LAST LINE 


YES, RETURN 


A 
A 


(LINETF) 2A 


Ar(VTCCUL} ; 
EsA 

Ay(VTCCUZ) 

CrA 

DE 

HL» ENDADR 

fi 


CHECK IF END ADDRESS 


INS4 

DE STADR 
ArE 
CVICCULI A 
Ard 
(VTICCUZ) 2A 


+ SET NEXT LINE ADDRESS 


BeMAXCOL 

HL» BUFTF 

AsRDCUR ; 
WAIT 

Ar (YTICINF) 

CA 

As (HL) 

CVICDATI A 
ArWRINC 


MOVE LINE DOWN 


Hi 
AL 
(VICCUL) 4 
ArH 

CYTCCUZ) 94 


+ RESTORE CURSOR 


LINE 


WALT 
Ar WRCF 


+ WAIT FOR VBLANE 
+ CLEAR LINE 


EB2D' 
EB?E’ 
EES 
EES? 
FBS4! 
EB36' 
EBS? ' 


EE38 ° 
ERSE' 
EBS" 


EB3F’ 
EB41' 


EB44' 
ER47' 
EB49! 
ER4E! 


ER4D' 
EB4F' 
EBS1' 
EBS3 


EBoO' 


EBS?" 


FRSA’ 


EBSE' 
EBSE ' 
EBSF ' 
FEI ' 


EB44' 
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3A FFDF 
CE 4F 
28 OE 


SE 00 
32 FFOD 


3A FFDD 
FE FF 
20 F9 
18 OC 


SE 40 
CE E? 
D3 O1 
DE Ol 
CE 67 
2B FA 


CY 


CF 


CO ER?4' 
B/ 

28 FA 
CD ERSS' 


SE 00 


G9-Dec-81 


WAIT: 


LOOP?: 


WAITI: 


—«LOOFIO: 


WAITNO: 


LOOP LI: 


WALTRTs 


NONE ¢ 


PAGE 1-36 


* WAIT FOR END OF FYTC COMMAND 
; A = PVTC COMMAND 


DI * DISABLE INTERRUPT 

DUT CUTCCHD) 9A > SEND COMMAND 

IN As (VICSTA} * GET STATUS 

BIT RDYFLG+A ? CHECK READY FLAG 
JR 2 LOOP? + LOOP AND WAIT 

EI > ENABLE INTERRUPT 

RET : RETURN 


> WAIT FOR VELANK 


? 


LD Ar (SWITCH) > CHECK IF TY SHITCH ON 


BI TW94 
JR ZeHATTNO + NO 
LO ArQFF + CLEAR VELANK FLAG 


LD (VEFLAG) A 


LD Ar(VBFLAG) » GET VBLANK FLAG 


CF OW > CHECK IF YELANK PERTOD 

JR NZ sLOOF10 * NOs WAIT TILL VBLANK 
JR WAITRT 

LD ArRSTFLG + RESET VBLANK FLAG 


SET VELANK +4 
OUT (VTCCHD) 2A 


IN Br {VICSTA) : GET STaAruls 
BLT VELANK A + CHECK IF VELANK 


Jk Z:LOOFi1 > NO» WALT 

RET + RETURN 

} 

+ DUMMY ROUTINE 

RET 

$ 

j FUT LIST CHARACTER 

' C = CHARACTER 

t 

CALL  LISTST 3 CHECK STATUS 
OR A 

JR ZyLIST + WAIT FOR READY 


CALL  LISTOT 


LO ArCR 
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ER46' BF CF C 
om RES?! = (28 OA JR isLISti 
EBA?’ = SE OL LO AsFAFEED 
ER&E' = BY CF C 
EBC’ | #8 05 Jk ZyLIST1 
ERAE' = SE OA LE AsLF 
EE/G' = BF LE C 
ER/1' 9620 Al JE NZeLISTRT 
EB73' LiSti: PUSH &C 
ER74' 04 OA LD Es PADDING 
EBYé' CD EBS4' LOOPZ0, CALL =  LISTST 
ER/?' BF OR A 
' ERVA' = 28 FA Jk ZLOOP20 
ER7C' O€ 46 LD Cat 
EB/E' CD EBRS' CALL = = LISTOT 
FEBt' 10 F3 DINZ = = =©LOOPZS 
EbaS' = CL FOF EC 
EEB4' =? LISTRT; RET 
ERGS' = 79 LISTOT: LO Al 
EBB6* = =03 OD OUT (FTRDAT) 2A > SEND DATA TQ DATA REGISTER 
ERBB’ 3A FFE? LD fr (TOREG) + GET PREVIOUS I/O REGISTER VALUE 
EBSE' CE DF SET FTRSTR eA + SET STROBE 
ERBBD' 03 18 QUT (CONTRL} +A + SEND TO CONTROL REGISTER 
EBGF' CE 2F RES PIRSTReA > RESET STROBE 
EB9i' O23 18 OUT (CONTRL} A + SEND TO CONTROL REGISTER 
EB93' C9 RET 


t 

} RETURN LIST STATUS 

; A = OFFH» READY 

: = QO0H» NOT READY 


EE94' CS LISTST; FUSH 8 =BC 
ER9G' «=o DE «18 IN Ar (STATUS) + CHECK IF PRINTER BUSY 
EES?" CE oF EIT FTRESY 9A 
ERG?! = 28 3? Jk Z:LI5T33 
EBS’ = 3A F034? LOD Ar (TIMEQUT) + CHECK IF TIMEQUT 
EB7E TE FE CF ON 
EBAQ' = 28 20 JE ZoLISTS2 + YES 
EBAZ' ED 4B Fa7é' LD BU» (TIMER) + DECREMENT TIMER 
FEAé6' = 0B DEC EC 
EBA7' ED 43 Fa7é’ LD (TIER) sBC 
EBAB' 78 LO Arb 
FRAC’ = BI OF é 
FEAR’ = 20 «IC Jk ZeLISTSi 
e* EBAF! = Zl EFS?! LD HL» ERNSGS 


EBRZ' = CD ESD1’ CALL PNSG 
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EBS’ CD E4E4! LOOPI7! CALL CONTIN ; PROKPT FOR RESPONSE 
ERRB’ FE 0D cP CER 
ERBA' 20 F9 JR NZsLOOPI7 
EREC' OE 00 LD Co ; SEND CR & LF 
EBBE' CD ES9D' CALL CONOUT 
ERCI' OE OA LD CaF 
EBC3' CD E590" CALL © CONOUT 
EBCS' 3E FF LD ADDN ; TURN ON TIMEOUT 
ERC’ 32 F034" LD = (TIMEOUT) +4 
EBCE' AF LISTS1: XOR A ; NOT READY 
FRCC’ 18 12 JR LSTRET 
EBCE' 36 FF LISTSZi LD = AP OFFH } TIMEOUT ALREADY 
ERDO’ 18 OE UR LSTRET 
ERD2" 3E 00 LISTS3: LD = AvOFF ; READY 
EBD4' 32 F034" LD (TIMEOUT) vA 
EBD7' 01 FFFF LD = sBCy TIMING 
ERDA' ED 43 F576" LD (TIMER) »BC 
EBDE' 3E FF LD = AyOFFH 
EBEO' Ci LSTRET! POF = BL 
FREI’ £9 | RET 
¥ 
PUT PUNCH CHARACTER 
; C = CHARACTER 
| 
EBE?' C9 PUNCH! RET 
ERE3' 00 00 DB Os ; SPARE 
$ 
; GET READER CHARACTER 
= CHARACTER 
; 
EBES' = C9 READER! RET 
EBES' 00 00 DB 0 ; SPARE 
; 
; T/O DRIVERS FOR THE DISK 
; 
HOME DISK 
; 
EREB' 01 0000 HOMES «LD BEd. 
; 
; SET TRACK NUMBER 


? EC = LOGICAL TRACK NUMBER 


EBEB' 
EBEF' 


EBFO' 
EBF1' 
EBF3' 


EBFS’ 
EBFS' 
EBFA' 
ERFB' 
EBFC' 
EBFE' 


ECO0' 
ECO3' 


EC06' 
ECO7' 
ECO8' 


ECOA' 
ECOD' 
ECOF' 


EC11' 
ECi2' 
ECi3' 
EC14' 
EC18' 
EC19' 
ECIA' 
EC1B' 
ECiD' 
EC1E' 


ECIF' 
EC22' 
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ED 43 FO9A' 


Cc? 


79 
FE 03 
30 35 


21 £233' 


32 F099! 
CD EC39° 


D5 


CD EDEC' 
38 OC 


2A FOCO' 


09-Dec-81 


SETTRK: 


SELDSK: 


SELHME: 


LOOPI2; 


SELHH1; 


SELOK: 


PAGE 


CALL 
JR 


a 
$ 
f 
4 
$ 


LD 


1-39 


(SEKTRK) »BC 


SELECT DISK 
C = DISK NUMBER 
E = 0» DISK OFFLINE 


Axl + GET DISK SELECTED 
NAXDSK + CHECK IF OVER LIMIT 
NC SELBAD + YES, BAD SECLECTION 
HL » DSKMAP + GET PHYSCAL DISK NUMBER 
By0 

HL BC 

Ay (HL) 

OFFH + CHECK IF DISK EXISTS 
ZsSELBAD + NO» BAD SELECTION 
(SEKDSK) 9A + SAVE DISK NUMBER 
GETPARM + GET DISK PARAMETERS 


RESTORE DISK DRIVE 


ArE + GET OFF-LINE FLAG 
A ¢ CHECK IF OFF-LINE 
NZsSELOK + NO 


Ay (BUFACT) 
ON 
ZySELHMI1 


By17 


RSTORE + RESTORE DRIVE IF OFF-LINE 
CrSELRST + RESTORE ERROR 


RETURN DISK PARAMETER HEADER ADDRESS 


HL» (DPADDR) > RETURN OPH ADDR IN HL 


ECS? 
EC3?" 
EC3A’ 
EC3E! 
EC3C' 
EC3D° 
ECSF’ 
ELAL’ 
EC42' 
EC44! 
EC46' 
EGaT: 
EC4?" 
EC4E" 
ECC" 
ECAP! 
E030" 


EC53" 
E056" 
ECS7' 
ECS8' 
ECa9! 
ECA’ 
FCoE ' 
ECé1' 
EC44' 
ECE ' 
EC&?' 
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AF XOR 
18 OE JR 
Zi EFCA' SELBAD; LD 
CE E3D1" CALL 
AF SELRS5T: XOR 
Jz 0004 LO 
Z1 9000 LD 
a SCF 
C? SELRET: RET 

; 

} 

} 

' 

} 

GETPARM: 

Fo FUSH 
Cs FUSH 
DS PUSH 
ES PUSH 
CE 2? SLA 
CE 27 SLA 
4F LD 
CE 2? SLA 
CE dc? SLA 
aF LD 
24 00 LD 
G4 0 LD 
a9 ADD 
O1 E237" LD 
Of ADD 
ce FOCO' LE 
Q1 0019 LD 
09 ADD 
JE LD 
23 INC 
a4 LO 
ED 33 FORE" LD 
01 0004 LD 
21 FOAE’ LD 
FE EX 
ED BO LDIR 
22 FORC’ LD 


1-46 


A 
SELRET 


HL» ERMSC4 

FMSG 

A > RESET 
(CDISK) +A 

HL0 


CURRENT DISK TO A 


+ SET ERROR RETURN 


GET DISK PARAMETERS 


IN: 
HUT: 
CHANGED: 
AF 
BC 
DE 
HL 
A > TIMES 
f + TIMES 
CA 
A + TIMES 
A + TIWES 
Lré 
HG 
Fy Q) 
HL BC 
EC + DFRASE 
HL BC 
(DPADGR) + HL. 


MOVE DISK TABLE 


Dy (HL) 
(DSKTAE) + DE 
BC34 

HL s SELBYT 
DEy HL 


A = FHYSICAL DISK NUMBER 
NONE 
NONE 


SAVE FOR LATER 


bee I ee Ee ND 


) 


+ TIMES 29 


> HL=DPEASE(DISKNOKZ0) 


; SAVE THE OPH ADDR 


INFORMATION 


+ CALCULATE OFFSET TO DISK TABLE ADDRESS 


> GET DISK TABLE ADDRESS 


+ SAVE DISK TABLE ADDRESS 


> SET LENGTH OF MOVE 
: HOVE INTO DATA AREA 


+ MOVE DISK TABLE INFORMATION 


(LOTADR) 2 HL 


> SAVE LAST TRACK ADDRESS 


MOVE TAB INFORMATION 


EC&A' 
ECéD' 
EC)! 
EC71' 
EC72" 
EC? 3" 
ELAS 
EC? i 
ECTA' 
EC7E' 
EE7D" 
EC7E' 
EC?F’ 
ECBO" 
EC81' 


ECR." 
EC83' 
ECB6' 


EC8?' 
ECB?" 
EC88" 
EC89' 
ECBA' 


ECRC' 
EC8D' 
EC8E' 
EC8F' 
EC90' 
EL?2Z° 


ECI4* 
ECW 
EC96' 


EC?" 
EC98' 
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2A FOCO' 
01 0012 


O1 9008 
Zi FOR4' 


ED BO 


FOC’ 


09-Dec-81 PAGE 


me Ht ba ot ad > 


SETSEC: LO 
: LO 
RET 


So oe A OE i ol od 


SECTNI: PUSH 
POP 
TNC 


SECTRT; FOF 
RET 


ee oe em oe 


1-41 
HL» (DPADDR) > GET DF HEADER ADDRESS 
BCs18 + CALCULATE OFFSET TO TAE ADDRESS 
HL» BC 
Ey HL} + GET TAB ADDRESS 
HL 
Dy f HL} 
BC +8 > SET LENGTH OF MOVE 
HL eHSTSTZ ; MOVE INTO DATA AREA 
DE» HL 
> MOVE TAB INFORMATION 
HL 
DE 
BC 
AF 


SET SECTOR NUMBER 
C = SECTOR NUMBER 


fel 
(SEKSEC) oA 


TRANSLATE SECTOR NUMBER 
BC = LOGICAL SECTOR NUMBER 
DE = TRANSLATION TABLE ADDRESS 
HL = PHYSICAL SECTOR NUMBER 


AF 

Aro 

E 

Z+5ECTNI + NO TRANSLATION 


DEsHL 

HL s BC + INDEX INTO TRANSLATION TABLE 
HL > OFFSET BY | 

Ls{HL} + GET SECTOR NUMBER 

H10 

SECTRT > RETURN 


SET DMA ADDRESS 
BC = DMA ADDRESS 


ECS?! 
EC9A’ 
ECIE' 
ECIE' 


EC9F' 
EC9F ' 
ECA? 
ECAG' 
ECA?! 
ECAA' 
ECAC ' 
ECAF 


ECEL ' 
ECE1 ' 
ECE ' 
ECE ' 
ECBA' 


ECED ' 


ECBD' 
ECBE’ 


ECC1' 
ECC4’ 
ECCS ' 
ECCB" 
ECC9' 
ECCA' 
ECCE" 
ECCD' 
ECCE' 
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FOAE' 


2 feo tre Cs 
“I Pa coe so 


ED 73 Foe?! 
31 FSC0' 

79 

32 FORD! 

3E 91 

SZ FO9E’ 

18 OU 


ED 73 Fo82' 
31 FSCO' 

3E 90 

32 FO9E' 


AF 
32 FOAA' 


3A FORE 
47 
34 FOC’ 
30 


09-Dec-81 


SETOMA: 


WROISK: 


RDDISK. 


RHOPER: 


RWI; 


PAGE 1-42 

LD LeC 

Lo HB 

LG (DMAAB? »HL + SAYE DHA ADDRESS 
RET 

: READ/WRITE ROUTINE 

; C = WRITE TYFE 

; WRITE A SECTOR 

} 

LD (DOSSTK) + SP + USE LOCAL STACK 
LD SF sLOCSTE 

Lo AsC GET WRITE TYPE 


LD CHRTYPE) 94 
LD ArHRITE 
Lo CRDWROF) 94 
Jk RWOFER 


READ A SECTOR 


LD (DOSSTE) » SF 
LD SP rLOCSTR 
LD A»sREAD 

LD (ROWROP? 9A 


3 
€ 


SAVE TYPE 
SET WRITE OPERATION 
SAVE OPERATION 


Ae i. oe i oo oh & 


> SET READ GFERATION 
* SAVE OPERATION 


COMPUTE PHYSICAL SECTOR: TRACK I5 THE SAME 


t 


XOR A 
LD (ERFLAG) 9A 


a 
4 


> CLEAR ERROR FLAG 


; CALCULATE PHYSICAL SECTOR NUMBER 


LD Ay (SECSHF 3 


LD Er A 

LD Ar (SERSEC) 
DEC A 

INC E 

DEC E 

JE ZR? 

SCF 

CCF 


+ LOGZ OF BLOCKING FACTOR 


> GET LOGICAL SECTOR NUMBER 


FCCF' 
ECDO' 
ECD2' 
ECD3' 
ECD6' 
ECD?" 
ECDA' 


ECDB' 


ECDE’ 
ECOF' 
ECE?" 
ECES' 
ECES' 
ECE?' 
ECEA' 


ECEC’ 
ECFQ' 
ECF3' 
ECF4' 
ECF4' 


ECF8" 
ECFB' 
ECFC' 
ECFF' 
EDO0' 


EDO2" 
EDOS' 
EDO7' 
EDO9' 
EDOC' 


EDOF 
EDi2' 
ED14' 


ED14' 
ED19' 
EDiB' 


ED1E' 


ED21' 
ED24' 
ED26' 


ED28' 
EDZB' 
ED2D' 
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3A FO9C' 


3A FOBA’ 
Ad 
32 FOA?' 
3A FOA3' 
47 
3A FO99' 


ZA FO9A' 


3A FOAG' 
47 
3A FOAG' 


3A FOA7’ 
FE FF 


- SE 00 


32 FOA7" 
CO EDAS' 


JA FOIE’ 
FE 00 
28 09 


3A FOPD' 
FE 00 
CC ED78' 


CD ED3F' 


3A FOVE' 
FE 00 
28 OF 


3A FO9D' 
FE 01 
20 08 
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RW25 


DIFBUF: 


OPREAD: 


RWLAST: 


CALL 


CALL 


1-43 
$ DIVIDE LOGICAL SECTOR BY 2 
RHI 
A 
(HSTSEC) cA + SAVE PHYSICAL SECTOR NUMBER 
Ay (SEKSEC) 
A 
BrA 
Ay (SECHSK) + GET SECTOR MASK 
Fi 
(LOGOFF) 24 + SAVE LOGICAL OFFSET OF WITHIN SECTOR 
Ay (BUFDSK) + GET DISK FOR HOST BUFFER 
BrA 
Ay (SEKDSK) $ GET DISK FOR R/W 
B + CHECK IF SAME 
NZ» DIFBUF > NOy DIFFERENT BUFFER 
BCs (BUFTRK) + GET TRACK FOR HOST BUFFER 
HL» (SEKTRK} s GET TRACK FOR R/W 
A 
HL BC + CHECK IF SAHE TRACK 
NZ»DIFBUF + NOs DIFFERENT BUFFER 
Ay (BUFSEC) + GET SECTOR FOR BUFFER 
BrA 
Ay (HSTSEC) + GET SECTOR FOR R/W 
B + CHECK IF SAME SECTOR 
ZRWLAST + SAME 


DIFFERENT BUFFER 


Ay (BUFACT) 
ON 

ArOFF 
(BUFACT) 9A 
ZsHRHST 


Ay (ROWROP ) 
READ 
Z+OPREAD 


Ay (HRTYPE) 
WRALL 
Z»RDHST 


TRANS 


A» (RDWROP) 
READ 
Z»RWRET 


Ay (WRTYPE) 
WRDIR 
NZ»RWRET 


_ + CHECK IF BUFFER ACTIVE 


SET BUFFER INACTIVE 
WRITE HOST WHEN ACTIVE 


ep hh 


GET OPERATION CODE 
CHECK IF READ OPERATION 
YES» READ SECTOR 


ep he Sh 


CHECK IF WRITE TO ALLOCATED SECTOR 


ee 


YES: READ HOST 


om 


TRANSFER CONTENT 


ee 


GET OPERATION CODE 
CHECK IF READ 
YES» RETURN 


Se Sh Th 


GET WRITE TYPE 
CHECK IF DIRECTORY ACTIVITY 
NOy RETURN 


Pep hr Dh 


EDZF ' 
ED32 ' 
ED34' 


ED3?' 
ED3A' 
EQSE' 


EG3F' 
EDAO' 


ED43' 
E44" 
ED43' 
ED47" 
ED48" 
EDA?! 
ED4C’ 
ED4D' 
EDO" 
EDS3" 
EDS6' 
EDS? 
EDSD' 
ED&1" 
ED63' 
ED&8' 
EDéE 
ED&D' 


EDAF' 
ED/1' 
ED? 4" 
ED?73' 
ED7?' 


ED/8' 
ED79' 
ED/C" 


EDZF' 
ED62 ' 


EDgS' 
EDBB' 
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CD EDAS' 
3E 00 
32 FOA?' 


SA FORA’ RWRET3 
ED 7E F582! 
C9 


AF TRANS; 
3A FOA?' 


3A FOAR’ 


32 FOAA' 
3A FOS?! 
32 FOAS! 
ED 2B FORA 
ED 33 FOA4 
ED SE FORE’ 
G1 0080 
3A FORE" 


ED BO TRANI; 


ae RDHSTs 
3A FO99' 
Co EC39" 


20 FOOA' 
22 FOOF! 


SA FOAB' 
32 FOQAL' 


ae 

WRHST + WRITE HOST 

As OFF > SET BUFFER TO INACTIVE 
(BUFACT) 2A 


Ay (ERFLAG) + RETURN ERROR CODE 
Fs (DOSSTR? 


TRANSFER CONTENT OF BUFFER 


A + CLEAR CARRY 

Ay (LOGOFF } > GET OFFSET IN SECTORS 
; CALCULATE OFFSET YALUE WITHIN BUFFER 
+ USING LOGICAL RECORD LENGTH OF 128 
+ ROTATE RIGHT, INTO CARRY 


HA 
Ast 
> ROTATE CARRY INTO HIGH BIT 
Leh + GET OFFSET VALUE 
DE rsHSTEUF + GET BUFFER ADDRESS 
HL DE + CALCULATE LOGICAL RECORD ADDRESS IN BUFFER 
Ar (HSTSEC) + UPDATE BUFFER SECTOR NUMBER 
CBUFSEC) +4 
Ay (SERDSEK) + UPDATE BUFFER DISK NUMBER 
(BUFDSK) +4 
DE» (SERTRK) + UPDATE BUFFER TRACK NUMBER 
(BUF TRE} s BE 
DE» (DMAAD) > GET TRANSFER ADDRESS 
BC sRECLEN + GET LENGTH OF TRANSFER 
As (RDWROF) + GET OPERATION CODE 
READ + CHECK IF READ 
2: RANI > YES 
Ar ON + SET BUFFER ACTIVE 
(BUPACT) 9A 
DE y HL + EXCHANGE SOURCE AND DESTINATION 


+ MOVE LOGICAL RECORD 


READ A PHYSICAL SECTOR 
CARRY ON = ERROR RETURN 
CHANGED: A 


HL 
Ar (SERDSK) + GET DISK NUMBER 
GETPARN + GET PARAMETERS 


HL» {SERTRK) + GET LOGICAL TRACK NUMBER 
CRATRE? 9 HL 


Ar (HSTSEC) » GET PHYSICAL SECTOR NUMBER 
CRHSEC) vA 


on 


ED8E' 
EDGE ' 


EDO" 
ED93' 
ED? 


EDF?" 
EDPA' 
EDC 


ED9E’ 
EDAL' 
EBAQ' 


EDA" 
EDA’ 
EDA?’ 


EDAC' 
EDAF' 


EDE2" 
EDR" 


EDS" 
EDBE' 


EDED' 
EDCO' 
EDC2" 


EDC4' 
EDC?" 
EDC?' 


EDCE’ 
EDCE' 


EDD" 
EDD1' 


EDD3' 


EDD4’ 
EDDS' 
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CD EEF’ 
38 43 


SA FOES' 
CE 4? 


ES 
3A FOAS' 
CD EC39° 


ZA FOA4! 
22 FOOF' 


3A FOES" 
CE 47 


20 07 


CD EEDE" 
38 OA 
18 05 


CD EFZE’ 
38 93 


AF 
18 01 
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RDHST1: 


WRHOT: 


WRHST 1: 


HSTNOR: 


HSTERR: 


HSTRETs 


PAGE 


CALL 
JR 
Jk 


en 2 


PUSH 


CALL 


JR 


Jk 


SCF 


FOF 
RET 


SEEK 
C»HSTERR 


Ar (DSKTYP) 
DISKTY 2A 
NZ sRDHSTI 


RDF OSE 
CrHSTERR 
HSTNOR 


RDHDSK 
CrHSTERR 
HSTNOR 


be ala 


“eho be ee ee eS “he 


1 te he be 


SEEK TRACK 
ERROR 


GET DISK TYPE 
CHECK IF HARD DISK 
READ FROM HARD DISK 


READ FROM FLOPPY DISK 
ERROR 
NORMAL RETURN 


READ FROM HARD DISE 
ERROR 
NORMAL RETURN 


WRITE A PHYSICAL SECTOR 
CARRY ON = ERROR RETURN 


HL 
Ay (BUFDSK) 
CETPARK 


HL» (BUF TRE) 


(RATRED HL 


Ay (BUFSEC) 
(RMSEC) 24 


SEEK 
CrHSTERR 


As(DSKTYF) 
DISKTY 2A 
NZsWRHST1 


WRF DSK 
CeHSTERR 
HSTNOR 


WRHDSK 
C»HSTERR 


A 
HSTRET 


HL 


DISK DRIVE SELECT 
A = SELECT BYTE 


IN: 


“abe Oe 


sone te 


Cufe Oe 


ve & 


am 


GET DISK NUMBER 
GET PARAMETERS 


GET LOGICAL TRACK NUMBER 
GET FHYSICAL SECTOR NUMBER 


SEEK TRACK 
ERROR 


GET DISK TYFE 
CHECK IF HARD DISK 
READ FROM HARD DISK 


READ FROM FLOFFY DISK 
ERROR 
NORMAL RETURN 


READ FROM HARD DISK 
ERROR 
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; OUT: NONE 

i CHANGED! NOWE 
EDDé' = F5 DSKSEL! FUSH = AF ; SAVE SELECT BYTE 
EDD7' 3A FOR! LD Ay (DSKTYP) ; GET DISK TYPE 
EDDA' CE 47 BIT DISKTY 4 + CHECK IF HARD DISK 
EDDC' 20 94 JR NZ+DSKSLI ; YES 
EDDE' = FY FOF AF ; GET SELECT BYTE 
EDDF' CO FFFé CALL = FDSEL } SELECT DRIVE 
EDE?' 18 07 JR DSKRET ; RETURN 
EDE4' 3 26 DSESL1! LD AyPRECMF ; GET PRECOMPENSATION 
EDE4' 03 31 OUT CHOPROM) #4 ; WRITE PRECOMPENSATION 
EDER' Fi FOF AF + GET SELECT BYTE 
EDES' 3 36 OUT (HDSEL} +4 } SELECT HARD DISK 
EDER' 9 OSKRET; RET 

; RESTORE DISK DRIVE 

: CARRY ON = ERROR RETURN 

; CHANGED! 4 

; 
EDEC' £5 RSTORE! PUSH = HL 
EDED' 3A FOAE' LD Ay (SELEYT) ; GET SELECT BYTE 
EDFO' CD EDDS' CALL  OSKSEL + SELECT DISK DRIVE 
EDF3' 34 FOR3' LD As (DSKTYE) + GET DISK TYPE 
EDFA’ CE 47 EIT DISKTY s4 ; CHECK IF HARD DISK 
EDFS' 26 9A JR NZ»RSTORL ; YES 
EDFA' 3A FORI' RSTORO! LD Ay (STEFS) + GET STEFPING RATE 
EDFD' Fé OC OR HOMEFD ; FUT INTO COMMAND 
EDFF' CD FFF9 CALL § FDHCMD + SEND COMMAND 
FEO?' 18 08 JR RSTOR? 
FEO4' 3A FORL' RSTORL: LD Ar (STEPS) ; GET STEPPING RATE 
EEO7' Fé 0C OF HOMEFD } FUT INTO COMMAND 
EEO9’ CD FFFO CALL  HDHCHD + SEND COMMAND 
EEOC' Eé 90 RSTORZ! AND SKERF ; CHECK IF ERROR 
EEOE' 32 FOAA' LO (ERFLAG) rA ; SAVE STATUS 
EEi1' 20 99 JR NZ»RSTERR } ERROR 
EE13' 28 FORC' RSTNORS LOD HL» (LSTADR) + GET LAST TRACK ADDRESS 
EEi6' AF XOR A 
EEI7' 7 LO (HL) 2A + SET LAST TRACK TO 0 
EEi8' 23 INC HL 
EEI9' 77 LD (HL 9A 
EFi4' 18 04 JR RSTRET 
EEIC' 37 RSTERR! SCF 
EEID' 1 RSTRET! FOP HL 


EEIE’ 


EEIr 
EEZO' 
EE? I 


EEec: 


EEdo 
EES’ 
EE ZA’ 


PELG: 
EEZF 
EE30' 
EE33' 
EE34' 
FESS ' 
EE3?7' 
EES? 


EESC* 


EE SF’ 
EE40" 
EE41' 
EES’ 
FE43’ 
FERS! 
EE 48" 
EES?" 
EE4E 


EESD' 
EEAF' 
EES 2' 
EES3' 
ERGO 
EES?" 
EESA' 
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Co 


Ihe SEEK: 
05 

ES 

CD FERS" 


3A FOES’ 
CE 47 


* cr 
eo Sf 


3A FORE’ SEEKO; 
47 

3A FOAZ" 

E? 


CD EDS" SEEK: 


ZA FORC' 


94 02 
2A FOSF® 


“t 
{ 


D3 13 
ze iC 
3A FORL' 


BS 


LOOP4: 


FAGE 


RET 


oe te ee er ~~) He 


PUSH 
FUSH 
FUSH 
CALL 


1-47 


SEEK TRACK 


CARRY ON = ERROR RETURN 


CHANGED} 


Ar (DSKTYP) 
DISKTYsA 
HZ SEEKNO 


A 


# 


$ 
$ 
$ 


+ TRANSLATE LOGICAL TRACK TQ PHYSICAL TRACK 


+ GET DISK TYPE 
+ CHECK IF HARD DISK 
+ YES: NO SEEK 


SELECT DISK AND SIDE 


Art SELBYT) + GET SELECT BYTE 
BA 

As (RWSIDE) + GET SIDE NUMBER 
7 + CHECK IF SIDE 0 

ArB 

ZsSEEKI + YES 

SELSIOrA : NOy SET SIDE t 
DSKSEL + SELECT DRIVE 


CHECK IF SANE PHYSICAL TRACK 


HL» (LSTADR) > GET LAST TRACK ADDRESS 
Ey (HL) + GET LAST PHYSICAL TRACK 
HL 

Dy CHL) 

AsE » SET UP TRACK REGISTER 
(FDTRE) 2A 

HL» (RHTRE) * GET CURRENT SEEK TRACK 
A + CHECK IF SANE TRACK 

HL» DE 

Z:SEEKNO + YES: RETURN 


SEER TRACK 


E's SEKRTY 
HL (RWTRK) 
AsL 
(FDDATA) +A 
Ly SEEKFD 
As (STEPS) 


} 
t 
? 


? 
t 


> GET NUMBER OF SEEK RETRY 
+ GET SEEK TRACK 
> SEND TQ CONTROLLER 


> GET SEEK COMMAND 
+ GET STEPPING RATE 


L > PUT INTO COMMAND 


EESB' 
ESE ' 
EES)" 
EEA?! 


EEAS' 
EE 66’ 
EEG?’ 
EE AE 
EES)" 
EE AF’ 
Bere. 


EE74" 
FEY?! 
EE7E' 
EE/C' 
EE?D' 
BEE: 


EE?F* 


EE81' 
EE84' 
EE8?' 
EESB" 
EES? ' 
EESA' 
FEBB' 


EES 
FEBD' 
EE8E" 
EE GF 


EEP2! 
EEP3" 
EES" 
EETO" 
EES ' 
aba ae 
FEB 
EESD' 


EESF ' 
EEAQ' 
EEA" 
EEA4' 
EEAS' 
EEA?’ 
EEA?" 
EEAA' 
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CD FFF9 
Fé 90 
32 FOAA' 
28 OF 


ES 

CD EDFA’ 
38 14 
Lee 
3E FF 
32 FOAA' 
18 0 


ZA FORC' 

ED SE FOSF! 
73 

23 


79 
fin 


C3 
DS 
ES 
C3 ERLE" 


c 


CS 

Do 

ES 

JA FOE2' 
FE 01 
SE 00 
23 30 
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SEEROKS 


SEEKNO: 


SEEKER; 


SEERRT: 


SEER: 


TRNTRES 


LOOF I: 


XOR 
JR 


FOP 
FOF 
POP 
RET 


ry 
$ 
a 
+ 


3 
f 


FUSH 
PUSH 
FUSH 
JF 


PUSH 
FUSH 


1-48 

FDHCHD + SEEK TRACK 

SKERR + CHECK IF ERROR 
(ERFLAG) 2A + SAVE STATUS 

29 SEEROK + NO 

HL ; 
‘STOR + ERRORe RESTORE DRIVE 
Cr SEEKER + RESTORE ERROR 

LOOF4 + RETRY 

ArOFFH + SET ERROR FLAG 
(ERFLAG} 94 

SEEKER : ERROR 

HL» (LSTADR} + BET LAST TRACK ADDRESS 
DE» (RWTRK) + GET CURRENT TRACK 
CHL} sE ¢ UFDATE LAST TRACK 
HL 

(HL) #D 

A 

SEEKRT 

HL sERHSG2 > DISPLAY MESSAGE 
PMSG 

HL 

DE 

EC 


EC 

DE 

HL 

SEERO 

AF 

EC 

DE 

HL 

Ae (SIDES) 3 GET THE NUMBER OF SIDES 
1 > CHECK IF SINGLE SIDED 

Ar : SET TO SIDE 0 

Zy TRNRET + RETRUN 

By A + CLEAR COUNTER 

Ay (SIDES) > GET THE NUMBER OF SIDES 
A + CALCULATE LOG2 OF SIDES 

is TRNI » LOOP ENDS 

B + INCREMENT COUNTER 

LOOP 
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FFac' C5 TRI! PUSH BC 
FEAD' 24 FOOF! LD HL (RWTRK3 ; GET LOGICAL TRACK 
FERO' AF LOOP?! XOR A ; DIVIDE BY NUMBER OF SIDES BY SHIFTING 
; RIGHT LOG? NUMBER OF OF SIDES 
FEE1' 7 LD A 
EER2' iF FRA 
EER3' 4? LD sv 
FERS’ 7D LD Al 
FEBS' IF RRA 
FERS’ oF LDL 
EER?’ 10 F? DUNZ LOOP? 
FER?’ ED SE FOF’ LD = DEs ¢RNTRE) : GET LOGICAL TRACK NUMEER 
FERD' 22 FOOF’ LD CRHTRK) HL =? SAVE PYHSICAL TRACK NUMBER 
FECG' = C1 FOP BE 
FECi' AF LOOR3: XOR 
FEC?’ 7 LD Ss 
FEC3' 17 RLA 
FEC4' 87 LD ssl 
FECS' 70 LoL 
EECS' 17 RLA 
EEC?’ 6F LD sl 
FECS' 10 F? DINZ LOOP? 
FECA' AF KOR of ; CALCULATE SIDE NUMBER 
FECE' EB EX —DEsHL 
FECC' ED 52 SBC UHL DE 
pm FECE’ 7 LD Ab 
FECF' 32 FOA?’ TRNRET! LD (RMSIDE) 2A + SAVE SIDE NUMBER 
FED?' El POP HL 
FED3' 1 FOP oD 
FED4' Ct POP EL 
FEDS' Fi POF AF 
FEDS' C9 RET 
READ FLOPPY DISK SECTOR 
CARRY ON = ERROR RETURN 
CHANGED; A 


FED7* 36 82 ROFDSK: LD AsREADFD + GET READ COMMAND 
EED?' = =18 02 JR FDSKRW 


WRITE FLOFFY DISK SECTOR 
CARRY ON = ERROR RETURN 
CHANGED; A 


Se, ee ee 


EEDE’ 3E A2 WRFDSK? LD AsRRITFD > GET WRITE COMMAND 
an EEDD' 32 FOAD' FOSKRH: LD (DSKCHD) +A 

EEEO' C5 FUSH = BC 

EFEI' £5 PUSH = HL 


EFZA' 
EF2C' 


MACRO-60 3.44 


SA FOAL’ 
D3 12 
04 Of 
SA FOR? 
E7 

3A FOAD' 
28 02 
CE DF 


21 Fa7é' 


CE 47 
CA EEE?’ 
56 O1 
CD EDEC' 
CD EE8C' 
18 Dé 


47 

3A FOE’ 
FE 00 
28 OF 


7a 
CE 77 
ZB O46 


ei EFé2' 
CD E3D1' 


a7 


et Kal 
orm 
ca Pa 
oe 
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LOOFS: 


FOSKL: 


FOSK3; 


FOSK4: 


FDSKER: 


FDSKRT> 


RDHDSK: 


bea I A on ed i od od 


LD 
JR 


ete te Of me Mee fe 


1-50 

As (RWSEC) ¢ GET SECTOR NUMEER 

(FDSEC) 2A > SET SECTOR REGISTER 
Be RETRY + GET RETRY COUNT 

Ar(RWSIDE) > GET SIDE NUMBER 

A ¢ CHECK IF SIDE 0 

Ar tDSKCMD) + GET COMMAND 

ZsFDSKI + YES 

SIDErA > SET SIDE 1 IN COMMAND 

HL HSTBUF ¢ GET BUFFER ADDRESS 


FOR + READ/WRITE SECTOR 
(ERFLAG) +A + SAVE STATUS 

A > CHECK IF ERROR 

ZyFDSKRT + NORMAL RETURN 
FOSK3 

FDSK4 


RNFERR 2A 
Z+LO0PS 
Eyl 
RSTORE 
SEEK? 
LOOPS 


BA 

Ar (RDWROP) + GET OPERATION CODE 
READ + CHECK IF READ 

ZF DSKER + YES: ERROR RETURN 


Arb 
WRPROT +A + CHECK IF WRITE FROTECTED 
Z»FDSKER > NO 


HL rERMSGI ¢ DISPLAY ERROR MESSAGE 
PMSG 


HL 


READ HARD DISK SECTOR 
CARRY ON = ERROR RETURN 
CHANGED; A 


ArREADHD 
HDSKRW 


+ GET READ COMMAND 


WRITE HARD DISK SECTOR 
CARRY ON = ERROR RETURN 
CHANGED + A 


MACRO-80 3.44 09-Dec-81 PAGE 1-21 


EFZE'  3E 30 WRHDSK; LD Ay WRITHD + GET WRITE COMMAND 
EF30' 32 FOAD' HDSKRE: LD (DSKCND) +A 
EFS3' CS PLUS EC 
EF34' £5 FUSH = HL 
EF35' 3A FOAZ' LD As (RHSIDE) > GET SIDE NUMBER 
EFR8’ £6 07 AND HEAD + GET HEAD NUMBER 
EF3A' 4F LD Lyf 
EFSE' 3A FOAE’ LO Ar (SELBYT)} + GET SELECT BYTE 
EFSE' & OF L > FUT HEAD NUMBER INTO SELECT BYTE 
EFSF' [3 364 QUT (HDSEL } rA + SELECT DRIVE AND HEAD 
EF4l' 3A FOAL' LD Ar (RWSEC) + GET SECTOR NUMBER 
EF44' «03 33 OUT (HDSEC) +A + SET SECTOR REGISTER 
EF46' 2A FOF’ LD HL» (RUTRE} > GET TRACK NUMBER 
EFa9' = 77D LD Fel + SELECT TRACK 
EFA’ 03 34 OUT (HOCYLLI 2A 
EF4C' 7C Lo ArH 
EF4D' 03 35 OUT {HOCYLH) 2A 
EF4F' 3A FOAD' LD Ay (DSKCHD) > CET COMMAND 
EFGZ' 21 F376" LD HL HOTEL > GET BUFER ADDRESS 
EFSo' CO FFED CALL HDRW i READ/WRITE SECTOR 
EFGS' 32 FOAA' LD (ERFLAG) vA > SAVE STATUS 
EFOB' 67 : OR A » CHECK IF ERROR 
EFSC' 28 91 Jk Z7HDSKRT > NORMAL RETURN 
EFSE' 3? SCF 
~~ 

EFSF’ | HOSKRT: FOF HL 
EFGG’ (Ci POP EC 
EFol' C9 RET 

; 

; MESSAGES 

} 
EF6Z' OD OA 44 49 ERNS5G1; DE CReLFe Diskette is write-protected,. ' EOL 
EF66' 73 4B 45 74 
EFSA' 74 45 20 49 
EF6E' 73 20 77 72 
EF72' 49 74 45 2D 
EF76' 70 72 OF 74 
EF7A' 45 63 74 45 
EF7E' 64 2E 00 
EFBL' OD OA 44 49 ERMSG2; DE CRrLFs'Diskette seek error’ sEQL 
EFBS' 73 6B 45 74 
EF89' 74 45 20 73 
EFBD' 45 65 4B 20 
EF91' 65 72 72 &F 
EF95' 72 00 
EF97' OD OA 50 72 ERMSG3; DE CRrLFe'Printer 15 not ready. 
EFOB' 49 SE 74 45 
EFOF' 72 20 69 73 


FFA3' 20 gE OF 74 
EFA7' 20 72 65 41 
FFAE’ 64 79 2E 


EF AE’ 
EFE2’ 
EF BS 
EFRA’ 
EF BE" 
EFC" 
EFC6' 
EFCA’ 
EF CE’ 
ERD 
EF DE" 
EFDA’ 
EFDE' 
EFE2' 
EFE3’ 
EFE7' 
EFEE 
EFEF 
ERE 3 
EFF?" 
EFFS' 
EFFEC’ 
FOOD! 
FOO4' 
F008" 
FOOC' 
F010" 
FQL1' 
FQ1S' 
FQ19' 
FQID' 
FOZL' 


FOS! 
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DE CReLFs'Press RETURN to continue. ' EOL 


nt h.2 “sd 
a TE -t | 


“ed P32 —- .f2 “i ca 
KD3 ad 
on 
& On 


mn Pa ro on ma 
on Ws co TT on Oo Tt 


Daa a 
y oOo. 


tm 
3 PA a. Cl 
mm > ot > 

ir 

rm 

ir. 

“TT 


44 49 ERMSG4: DE CRoLFe'Disk is not activated. ' EOL 


~Jo“ ce “oO Oo OA OA oe ce 


ae i 
is hs fs Of 6 
mr 
a ta 
i) 
5 tr 
pon 


ee | ae | ~ 


OD OA 43 al ERMSGS; DE CRoLFy ‘Cannot read system.’ 

6E 6E 4F 74 

29 72 65 41 

64 20 73 79 

73 74 435 40 

2E 

OD OA 49 4E DE CRoLFs ‘Insert system diskette, ' 
73 45 72 74 

20 73 79 73 

74 65 4D 20 


ND OA 30 72 DE CRyrLFs'Press RESET outton,’ sEOL 
é5 73 73 20 
a2 46 33 45 
m4 20 62 75 
7474 GF 4€ 
ZE 06 
i 
+ PYTC DATA STORAGE 
f 
00 SCRLFLG: DE OFF + SCROLL FLAG 
00 BRFRFLG? DE 0 + BACK/FOREGROUND FLAG 
0 LEADFLG; DE 0 > LEAD-IN FLAG 
00 LDFLG: DE ¢ 
00 SHANLi DE OFF + AUTO NEWLINE SWITCH 
> ON - AUTO WRAPAROUND: NO LINEFEED 
+ OFF - LINE TRUNCATE: LINEFEED 
00 SWALF 3 DE OFF + AUTO LINEFEED SWITCH 
+ UN - AUTO LINEFEED WITH Ck 
+ OFF - NO LINEFEED WITH CR 
00 SHLEAD: DE OFF + LEAD-IN SWITCH 
+ ON - ESC 
+ OFF - TILDA 
00 LINETF: DE O + TEMPORARY LINE NUMBER 
00 COLTP: DE 9 + TEMPORARY COLUMN NUMBER 
00 CURCNT: DEG + CURSOR COUNT NUMBER 
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FOs1' FF CURSH: DE ON + CURSOR SHITCH 

FO32' 00 CHRENT: DEO + CHARACTER COUNT 

FO33' = 00 GREHSW: DB OFF + GRAPHIC SWITCH 

FO34' OH TIMEOUT: DE OFF + TIMEOUT ON LIST 

FOIS' OO REYSW: DB OFF + KEYBOARD LOCK QUT 

FO36' = F578" EUIFADR + Dk CHREUF + CHARACTER BUFFER ADDRESS 
FOSB' = OA COUNTER: DE 10 


OUTPUT PROCESSING ROUTINES 


FO39' EBSA’ E801° CHRTAB: DW NONE: ONC OF FC: OND» OF FD» SNDADR »KUNLK » BELL 

FOSD' EGR E7F7" 

FOSi' EZFC’ EDS" 

FO4S' =E?C2' E79F' 

FOS9' = ESDS' EBSA’ Dk BKSFACE » NONE »LFEED»CURDWN » CURUP s CARRTN» NONE » CLREND 
FO4D' = E678" EBE4' 

FOS1' EB4l' Ede’ 

FOSS’ EBSA’ EFB3° 

FOS?’ E70B' E8CB" DW CURTGT sDIRADR» CURHME »DELLNE + NONE sKLOCK » NONE » CLREK 
FOSD' EBEZ' EAZA' 

Fuéi' EBSA' E7BC' 

F045’ EBSA’ EEO? 

FO?’ E9DC' E821" DW CLRF SCs SETEKs INSLNE » ESCAPE » CLRSCN» NONE »GRAPH» SETFR 
FOSD' EAAS' E824" 

FO71' E96E' EBSA’ 


om FO7D' EBIS' ESIB’ 
} 
+ LEAD-IN TABLE 
; 
FO79' OQ FF OFF OFF LEADTE: Db OFF sONsONsONs ON: ONS ON: OFF 
FO7D' FF FF FF 00 
FOB" 00 00 00 FF DE OFF OFF sOFF ON: ONS OFF y OFF »ON 
FOBS' FF 00 00 FF 
FOB?’ 00 FF FF FF DE OFF sONsONsONsOFF ON OFF SON 
FORD’ 60 FF 00 FF 
FO9L' FF FF FF 90 DE ONsONs ON: OFF ON: OFF ON ON 


FO9S' FF 00 FF FF 


UNITIALIZED DATA AREA 
READ/WRITE OPERATION DATA 

Fa99' SEKDSK! DS «== s«d:Ss$:s SEEK DISK NUNBER 

F094 : SEKTRK? DS 2s}: SEEK LOGICAL TRACK NUMBER 

Foc’ SEKSEC! DS ==s«d:«s«d:s« SEEK LOGICAL SECTOR NUMBER 


} BUFFER OPERATION DATA 


FO9D' 
FOSE 
FORE 
FOAL' 
FOAZ ' 
FOAS' 
FOAA! 
FORE! 
FOA?' 
FOAG' 
FOAS' 
FORA 
FOAE 
FOAD' 


FOAE® 


FQAE' 
FOAF' 
FOBI' 
FOR2' 
FOE3" 


FOR’ 
FOB 
FORB' 
FOB?" 
FOBA' 
FORE" 


FORC’ 
FORE 
FOCO' 
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WRTYPES 
RDOWROF 
RWTRE 

RWSEC? 

RHSIDE: 
BUFDSK 3 
BUF TRE 
BUFSECS 
BUFACTs 
HSTSEC; 
LOGOFF: 
ERFLAG: 
DMAAD; 

DSKCHD; 


BEGDAT 


SELEYT? 
SECSIZ: 
STEFS3 
SIDES} 
SETYF3 


HSTSIZ: 
ELESIZ: 
HSTBLKs 
CPHSPT: 
SECMSES 
SECSHF 


_ LSTADR: 


DSETAR: 
DPADDR: 


PAGE 


Sop fe Re Be 


Ce 


a ee ee ee ee OS ee Os 


WRITE BUFFER TYFE 
READ/WRITE OPERATION CODE 
READ/WRITE TRACK NUMBER 


> READ/NRITE SECTOR NUMBER 


READ/WRITE SIDE NUMBER 

DISK NUMBER FOR HOST BUFFER 

TRACK NUMBER FOR HOST BUFFER 
SECTOR NUMBER FOR HOST BUFFER 
HOST BUFFER ACTIVE INDICATOR 
FHYSICAL SECTOR NUMBER 

LOGICAL OFFSET IN FHYSICAL SECTOR 
ERROR FLAG 

DHA ADDRESS 

DISK COMMAND 


SCRATCH DATA AREA 


$ 3 


DISK 


ry 
+ 


ee ee oe a 


a 
j 
a 
, 
4 
' 
; 


BEGINNING OF DATA AREA 


TABLE SAVE AREA BEGIN 


SELECT BYTE 
SECTOR SIZE 
STEPPING RATE 
NUMBER OF SIDES 
DISK TYPE 


DISK TABLE SAVE AREA END 


TAB SAVE AREA BEGIN 


; 
; 
$ 
t 
} 


a 
a 
é 


PHYSICAL SECTOR SIZE 


+ BLOCK SIZE 

+ NUMBER OF LOGICAL SECTOR PER PHYSICAL SECTOR 
+ NUMBER OF LOGICAL SECTORS PER LOGICAL TRACK 
> HSTBLK - 1 


LOG2(HSTBLK) 


TAB SAYE AREA END 


& 
# 


a 
7 


rd Pod PF 


a 
$ 


LAST TRACK ADDRESS 
CURRENT DISK TABLE ADDRESS 
CURRENT DISK PARAMETER ADDRESS 
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DIREF i 
ALLOO; 
ALLOL: 
ALLOZ3 
ALLO3; 
ALLOA: 
CHROO: 
CHEOL; 
CHROZ? 


BUFTPs 
HST BUF 
TIMER: 
CHREUF 3 
DOSSTKs 


2 
? 


LOCSTK 


ENDDAT 
DATSIZ 


PAGE 


DS 
EQU 


EQU 
EQU 
END 


DISK BUFFERS 


128 + SCRATCH DIRECTORY AREA 
2 + ALLOCATION VECTOR 0 

49 + ALLOCATION VECTOR 1 

49 + ALLOCATION VECTOR 2 

77 + ALLOCATION VECTOR 3 

133 + ALLOCATION VECTOR 4 

16 + CHECK VECTOR 6 

64 + CHECK VECTOR 1 

44 + CHECK VECTOR 2 


80 + TEMPORARY BUFFER 

wiz + LARGEST PHYSICAL SECTOR SUPPORTED 
2 + LIST DEVICE TINER 

10 + INPUT CHARACTER 

é + STORAGE FOR BDOS STACK 


$ + BIOS STACK 


$ + END OF DATA AREA 
$-BEGDAT + SIZE OF DATA AREA 


Macros: 


Symbols; 


Fi4z' 
FIBG' 
004 
E79F ! 
FOZ! 
FOR4' 
E703! 
E7OA’ 
FOAS' 
FOA4' 
CCO0 
EBEI' 
FeA6' 
F477! 
EéoE' 
E9EO' 
EA1S' 
EFA0' 
aud | 
ESSF' 
pase | 
FOZF! 
EoD3 ' 
_ ESEF! 
E40D' 
E4EA' 
Faz8' 
E4DR' 
0018 
FOR?’ 
FO30' 
EBE2' 
E736' 
FO31' 
E87D' 
FAb4' 
FFFC 
ESCE’ 
E958! 
E922! 
EBE8' 
EBF7' 
Face ' 
E32A' 
E346! 
FFES 
E237! 
b2E?' 
FFES 
EDER' 
FOBE ' 
FOCO' 


HACRO-B80 3.44 


ALLOO 
ALLOS 
EDOSAD 
BELL 
ERFRFLG 
BLES? 
BSMOWt 
RSRET 
BUFDSK 
BUFTRK 
CCF 
COMNRT 
CHEOL 
CHORET 
CHROT 
CLRBK 
CLRF? 
CLRSC1 
COLBCK 
COLERT 
COLFRT 
COLTP 
CONIC 
CON3A 
CON6 
CONIN? 
CONET 
CONST? 
CONTRL 
CEMSFT 
CURCNT 
CURHHE 
CURIGS 
CURSH 
CURUPZ 
DEL? 
DELAY 
DIADR1 
DIADR4 
DIADR7 
DIADRA 
DIADRD 
DIRADR 
DISK1 
DISK4 
DMAP TP 
DPBASE 
DFELK? 
DPETP 
DSKRET 
DSKTAE 
ENDDAT 
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Fife’ ALLOL 
FIFO’ ALLO4 
0007 BEEF 
9800 = BIAS 
Eé05' BKSPACE 
0006 BLOCK 
FéEC' ESMOVL 
FOA?'  BUFACT 
FOAG' BUPSEC 
0005  EBWSCN 
0004 CDISK 
E634’ = CHAROUT 
F2E6' CHROZ 
Fo73'  CHREUF 
Fééo' = CHROTI 
ESBS’ = CLREND 
EAgZ' CLRFRT 
ESSE’  CLRSCN 
bo47' COLBRI 
O07 COLBH 
0038 — COLFH 
ESBE’ = CON1 
ESEL’ = CONZ 
ESF4' = CON4 
EéiD' CONEND 
FFEA = CONINF 
ESA8' = CONST 
E4BC' CONST? 
E96E' = CONVRT 
GOOD = = CR 
E884’ = CURDWN 
E7iF’ CURIGI 
E7OE' CURIGT 
E841' CURUF 
Os12  DATSIZ 
FAG?’ = DEL 
EABE’ DELCLR 
ESFD' DIADR2 
E9SE’ DIADRS 
FOF4' DIADRE 
E910’ DIADRE 
E930'  DIADRE 
FOC2’ DIREF 
E335' = DISK2 
O000 DISKTY 
Fa82' = DOSSTK 
F204’ = DFBLKO 
E2Fi' DPBLKS 
FOAD'  DSKCHD 
EDDé’ = DSKSEL 
FOB3' DSKTYP 
0000 EDL 


FA7F? 
D406 
FOAE 
E200 
0020 
F378" 
E704! 
FQ36' 
Foz" 
Edb6 ' 
EBAB 
F296 
EdOF 
FQ32" 
FOS?" 
ESE?" 
EDC’ 
6006 
ESeC' 
ES41' 
FFD4 
ESDC’ 
ESEA' 
Eéld' 
a 
E590" 
E409" 
FFE? 
F038" 


ALLO? 
BDOS 
REGDAT 
BIOS 
BLANK 
BOOT 
BSOUT 
BUF ADR 
BUF TF 
CARRTIN 
COWNI 
CHKOO 
CHELIN 
CHRONT 
CHRTAE 
CLRF 1 
CLRFSC 
COL46 
COLBK2 
COLFOR 
COLNO 
CONTA 
CON3 
CONS 
CONTIN 
CONOUT 
CONSTI 
CONSTA 
COUNTER 
CUPRET 
CURET 
CURIG2 
CURRET 
CURUFL 
DELI 
DEL4 
DELLNE 
DIADRS 
DIADRS 
DITADRY 
DIADRC 
DIFBUF 
DISKO 
RISKS 
DHAAD 
DF ADDR 
DPBLK1 
DPBLK4 
DSKMAF 
DSESLI 
ENDADR 
ERFLAG 
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ERMSG1 
ERMSG4 
FDRASE 
FDERR 
FDISK?2 
FOSEC 
FDSK3 
FDSKRT 
FOTRE 
DETPARM 
GRAPHIC 
HDCND 
HDDATA 


TREG 
KBDINT 
KEYSH 
LDFLG 
LEFT 


LFEEDI 


LFRET 
LINETP 
LISTOT 
LISTS2 
LOCSTK 
LOOF1 
LOOPI2 
LOOFI4 
LOOP20 
LOOPS 
LOOPS 
LSTRET 
MAXDSK 
MAXTVC 
MSIZE 
OFF 
OFFD 
OFF TMF 
ONCUR 
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EF81' ERMSG2 
EFE3' ERMSGS 
0010  FOCKD 
FFF9 = FDHEMD 
0008 FDISK3 
FFF6 = FDSEL 
EFi3' FDSK4 
EEDD' FDSKRH 
OO0C FMFEED 
F454' = GOCPA 
FOQ33'  GRPHSH 
0035 HDCYLH 
0007  HDERRZ 
0003 HDISKI 
FFED =—-HDRW 
EFSF’  HDSKRT 
0007 HEAD 
O000 HOMEFD 
F376' HSTBUF 
EDD4' HSTRET 
ES13' = ING 
ES3l' INO? 
ES3C'  INRETi 
EADF’. INSZ 
EBOA'  INSS 
9004 INTLCE 
0000 INTRFT 
0044 Ik 
000  IR2 
OO4F IRS 
6080 IR8 
0003 JMPCOD 
0004  KCAPLK 
E7EC' KLOCK 
FOZ?’ LEADFLG 
OO0A  =—sLF 
FéA4' = LFEED2 
0003  LINEO 
EBSE' LIST 
EBB4’ = LISTRT 
EEDZ2'  LISTS3 
FOA9' LOGOFF 
ER44' LOOP 
E7AB' LOOPI3 
EBRS' LOOFI? 
E7CE’ LOOFZ1 
FESF' LOOPS 
EB30' LOOF9 
9005 MARGIN 
OO17 HAXLIN 
604C MODE 
EBSA' NONE 
EB0B' OFF 
0028 OFFDIS 
OOFF ON 
E7F7' OND 


s-l 


EF? * 
E824! 
0013 
0002 
FFF3 
BER? 
EF 26" 
0019 
060 
ES15' 
6030 
034 
FFFO 
9005 
0033 
EF30' 
0002 


ERHSGS 
ESCAPE 
FDDATA 
FDISK 
FOR 
FDSKI 
FDSKER 
FDSTAT 
FORGND 
GRAFH 
HDBASE 
HDCYLL 
HDHCHD 
HDISK? 
HDSEC 
HDSKRM 
HGHINT 
HOMEHD 
HSTERR 
HSTSEC 
INO? 
INFUNC 
INRET? 
INS3 
TNSLNE 
TNTHSE 
TOBYTE 
TRI 
TR3 
TR 
TR? 
JUMP 
KEYED 
KUNLK 
LEADTE 
LFEED 
LFEED3 
LINENO 
LISTI 
LISTSi 
LISTST 
LOOFO 
LOOPLL 
LOOPi4 
LOOP? 
Loor22 
LOOPS 
LSTADR 
MAXCOL 
MAXOFF 
MODREG 
NXTSEC 
OFFCUR 
OFFSET 
ONC 
ONDICU 
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0029 ONDIS EDIE’  OPREAD 0008 PADDING 
FFE? PEASE ESDi' PSE ESbo' PHSGi 
0020 FRECHF 0005  FRINT 0000  FRONPT 
GO05 PIRESY O00D  FIRDAT 0003 PIRSTR 
FREZ' PUNCH OOAC  RDCUR ECBi'  RDOISK 
FED7'  RDFDSE EF7A' RDHDSE ED?8' = RDHST 
ED9E'  RDHSTI JOA RDFT E4R8b' =RDSECS 
E4A7' —RDSRET E48D' = RDS TRY E433' RDTRRI 
FO9E'  ROWROF 0005  RDYFLG 0000 READ 
EBES’ READER 6082 READFD 0020  READHD 
Q001 REBOOT 0089 RECLEN 0000 RESET 
OO0A RETRY 6030 RIGHT 0004 RNFERR 
FEIC' RSTERR 0040  RSTFLG FEI3' RSTNOR 
EDFA’ = RSTORG EEQ4' = RSTORI EEOC’  RSTORZ 
EDEC' FSTORE FEID' RSTRET 0001 RVERSE 
ECCA' = RWI ECD2' RW? EDIE’  RYLAST 
ELED'  RWOPER EDS7'  RWRET FOAL’ RWSEC 
FOAZ’ RYSIDE FOOF'  RRTRE ESSB' = SCNRET 
E585' = SCNUPL E598’ = SCHUP2 E570" — SCNUPD 
FOZ7' = SCRLFLG E778’ = SCRLLI E779" = SCRLL?2 
E7a?' = SERLL3 E73D' SCROLL FFD? = SC START 
FOBA'  SECHSK FOBB'  SECSHF FOAF' SECSIZ 
EC94" = SECTNI ECB7' SECTRAN EC97' = SECTRT 
EEIF’ SEEK EE?C’ § SEEKO EES?’ =SEEKI 
FEBC'  SEERZ FE8i° SEEKER DO1C SEERFD 
FE7E' SEERNO EE74° = SEEROE FEQB' =SEEKRT 
FOP?’ = SERDSE 0002  SERRTY FOSC' = SEKSEC 
on FOPA' = SERTRK ECZA'’ SELBAD FOAE' = SELBYT 
EBFO' SELDSK 0000 SELFA D001 SELFE 
ECIF’ SELHM1 ECO6'  SELHHE EC24"' = SELOK 
EC38' = SELRET EC30' SELRST 0002 SELSID 
E821’ SETEK ECS?’ SETDMA ES1E’ = SETFR 
EC32' = SETSEC EBER’  SETTRE 0003 SIDE 
FORZ' SIDES FIoA' SIGNON 0090 SRERR 
E7E7' SNDADI E7Fi' SNDADZ E7D5'  SNDADR 
0002 SPLIT GOB0 = STADR 0018 STATUS 
Q050 STEPFO FOBL' STEPS FOZC' = SWALF 
FOZB' = SWANL FFDF SWITCH FOZD' SWLEAD 
0005  SYSCAL ESOF' TABO E317’ = TAB3 
OO7E TILDA FO34' = TIHEQUT Fa76'  TIRER 
FFFF TIMING F830' TLDA E83D' TLDAL 
ED73' TRAN ED3F' TRANS EZ?B' TRANSO 
DO0A TRKQEN 0002  TREOST 0002  TRKIEN 
0001 = TRKIST EEAC' TRNI EECF' TRNRET 
EE92' TRNTREK O0L TY DOOA = TYCHT 
E423' THOSID E7BE' UFOLIN E79E' UPBLRT 
FFOD = VEFLAG 0004  VBLANK 0000 VICBASE 
0001 VITCCHD 0004 VTCCUL 0005  YTCCU2 
OO1C  VITCDAT 9000 VICINI 0000 YICINF 
0010 VICHOD 0006 VICFTI 0007 = VICPT2 
O002  VICSCI 0003 VICSC?Z 0001 VICSTA 
FE2D' WAIT EBSB' WAITI FR23' WAIT? 
EB4D' WAITNO FES9' = WALTRT D000  WARMOT 
—_ E449’ = WBERR ESE2' WEOOT ESFS' WOOT! 
E203' WEOOTE O01D WIDTH $000 WRALL 


OOBE WREP O0AA HRCUR 0001 WRDIR 
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ECF’ = WRDISK 
EDAS'  WRHST 
0001 WRITE 
0006  YRPROT 


No Fatal erroris) 
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EEDE 
EDCE’ 
Q0A2 

FOoD' 


WRF DSK 
WRHST1 
WRITFD 
WRTYPE 
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HRHDSK 
WRINC 
WRITHD 
HRULA 


